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

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.