viết chương trình tìm max 4 số a,b,c,d sử dụng hàm tìm max 2 số x và y.

Var a, b, c, d, max: integer;

procedure smax(x, y);

  Begin

     If x>y then max:=x

     Else max:=y;

  End;

Begin

    Write('nhap 4 so nguyen: ');

    Readln(a, b, c, d);

    Max:=a;

    Smax(max, b);

    smax(max, c);

    smax(max, d);

    Write('max = ', max);

    Readln

End.

uses crt;

var a,b,c,d:integer;

function max(x,y:integer):integer;

begin

if x<y then max:=y

else max:=x;

end;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(max(a,max(b,max(c,d))));

readln;

end.