var a,b:integer;

begin

 writeln('введите первое число');

 readln(a);

 writeln('введите второе число');

 readln(b);

 if a>b then begin writeln(a*a); writeln(b*b);end else  begin writeln(b*b); writeln(a*a);end

end.

Ответ:

program z1;

var a,b:integer;

begin

readln(a,b);

if a > b then

begin  

writeln(a*a);

writeln(b*b)

end

else

begin  

writeln(b*b);

writeln(a*a)

end  

end.

Объяснение:

Ввод чисел

Проверка условия a > b,

если условие верно, то вывод в первой строке квадрата первого числа, во второй строке - квадрата второго числа,

в противном случае вывод в первой строке квадрата второго числа, во второй строке - квадрата первого числа