Даны два числа. если они не равны, то замените каждое из них большими вывести результат....

Question

Даны два числа. если они не равны, то замените каждое из них большими вывести результат. если они равны, то вывести их удвоенную сумму

Answer 1

Var a,b:integer;

sum:integer;

begin

writeln('введите первое число');

readln(a);

writeln('введите второе число');

readln(b);

if (a<>b) then

begin

a:=a+1;

b:=b+1;

writeln('числа не равны');

writeln('a= ',a);

writeln('b= ',b);

end;

if (a=b) then

begin 

sum:=a+b;

sum:=sum*2;

writeln('числа равны');

writeln('удвоенная сумма= ',sum);

end;

end.