Даны два целых числа. Составить программку, которая большее число строит в

program raf105;

var a,b: integer;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

writeln;

if agt;b

 then begin

   a:= a*a;

   b:= b+10;

 end

 else  if alt;b then begin

   b:= b*b;

   a:= a+10;

 end;

if a=b

 then writeln('ЧИСЛА РАВНЫ')

 else begin

   writeln('a = ',a);

   writeln('b = ',b);

 end;

end.

PascalABC 3.4.2