Паскаль, второй номер пожалуйста

===== PascalABC.NET =====

begin

 var (x, y, z) := ReadReal3;

 var U := Max(x, Max(y, z)) / (x + y - z);

 Print(U)

end.

Ответ:

var x,y,z,max,u:real;

begin

write ('x = ');

readln (x);

write ('y = ');

readln (y);

write ('z = ');

readln (z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

u:=max/(x+y-z);

write('u = ',u)

end.