Из 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.

var
x,y,z: Integer;
begin 
ReadLn(a,b,c);
if (x > y) and (x > z) then
  WriteLn(x)
else
if (y > x) and (y > z) then
  WriteLn(y)
  else
  WriteLn(z);
end.