Question

программа на языке паскаль. Срочно, помогите пожалуйста!!! ​

Answer 1

program H;

var a,b,d:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   a := sqr(a);

   b := sqr(b);

   d := a-b;

   

   if d > 0 then writeln('a > b на ', d);

   if d < 0 then writeln('b > a на ', abs(d));

   if d = 0 then writeln('a = b');

end.