СРОЧНО !НАПИШИТЕ ПРОГРАММУ ** ПАСКАЛЕ ВВОДА С КЛАВИАТУРЫ ДВУХ ЧИСЕЛ И ВЫВОДА ** ЭКРАН...

Question

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

Answer 1

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