из x y z выбрать наибольшее составить
программу.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var x,y,z,max: real;  Read(x,y,z);  if x>y then max:=x else max:=y;  if z>max then max:=z;  Writeln('max=',max)end.