Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Даны два числа, вывести на экран квадрат большего из них

Ответ оставил Гость

Var a,b,a1,b1:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if a1>b1 then write(a1)
else write(b1);
end.