[Ildar-tsr]

Код:

funcion max(a,b,c:real):real;
begin
if (a>b) and (a>c) then
  result:= a
else
  if b>c then result:= b
  else result:= c;
end;

writeln ('max=',max(x,y,z));

min по аналогии