program asd;
var
a,b : real;
begin
read(a,b);
if a > b then
a := a * a;
writeln(a);
end;
if b > a then
b := b * b;
writeln(b);
end
else
writeln('Числа равны');
end.
program asd;
var
a,b : real;
begin
read(a,b);
if a > b then
begin
a := a * a;
writeln(a);
end;
if b > a then
begin
b := b * b;
writeln(b);
end
else
writeln('Числа равны');
end.