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

Question

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

Answer 1

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.