Viết chương trình tìm số lớn nhất trong 4 số nguyên a, b, c, d, trong chương trình có sử dụng hàm tìm số lớn của 2 số nguyên a và b?

uses crt;
var a,b,c,d:longint;
function max(a,b:longint):longint;
begin
   max:=a;
   if b>max then max:=b;
end;
begin
clrscr;
   readln(a,b,c,d);
   writeln(max(max(max(a,b),c),d));
readln
end.