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.