Объяснение:
var x,y,z,mx,mn:integer;
begin
readln (x,y,z);
x:=x*x;
y:=y*y;
z:=z*z;
mx:=max(x,y,z);
mn:=min(x,y,z);
writeln (mx);
writeln (mn);
end.
