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,
если условие верно, то вывод в первой строке квадрата первого числа, во второй строке - квадрата второго числа,
в противном случае вывод в первой строке квадрата второго числа, во второй строке - квадрата первого числа
