Даны действительно числа x, y, z. вычислить u=max^2 (x, y, z) программу на паскале написать. ) вообще не понимаю

var
  x, y, z, max: integer;

begin
  readln(x, y, z);
  if x > y
    then max := x
  else max := y;
  if z > max
    then max := z;
  writeln(max * max)
end.