program raf105;
var a,b:integer;
begin
write('Введите 2 числа: ');
readln(a,b);
if a>b
then writeln('Вывод: ',a*a)
else writeln('Вывод: ',b*b)
end.
program raf105;
var a,b:integer;
begin
write('Введите 2 числа: ');
readln(a,b);
if a>b
then writeln('Вывод: ',a*a)
else writeln('Вывод: ',b*b)
end.
PascalABC 3.4.2