даны действительно числа 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.