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

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  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.