даны числа a,b,c,d. получить xmax(a,b), y=max(c,d), z=max(x,y). Вычисление max(k,m) с

function max(k,m: integer):integer;

begin

if kgt;m then max:=k else max:=m;

end;

var a,b,c,d,x,y,z: integer;

begin

writeln('a, b, c, d:');

readln(a,b,c,d);

x:=max(a,b);

y:=max(c,d);

z:=max(x,y);

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

end.

Пример:

a, b, c, d:

12 48 34 27

x = 48 y = 34 z = 48