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.