Question

СРОЧНО !
НАПИШИТЕ ПРОГРАММУ НА ПАСКАЛЕ ВВОДА С КЛАВИАТУРЫ ДВУХ ЧИСЕЛ И ВЫВОДА НА ЭКРАН ЧИСЛА , ЧЕЙ КВАДРАТ БОЛЬШЕ 

Answer 1

var
   a,b:longint;
begin
   readln(a,b);
   if sqr(a)>sqr(b) then writeln(a)
   else
     if sqr(a)<sqr(b) then writeln(b)
     else writeln('Квадраты чисел равны')
end.