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

var
  x, y, z, max: integer;

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