даны два числа. если они не одинаковы, то замените каждое из

Var a,b:integer;

sum:integer;

begin

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

readln(a);

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

readln(b);

if (alt;gt;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.