Viết chương trình nhập vào 4 số thực. Đưa ra màn hình số lớn nhất trong 4 số đó bẳng cách sử dụng hàm tìm số lớn nhất của 3 số

var a,b,c,d: real;

function max(a,b,c,d:real):real;

begin

max:=a;

if b>max then max:=b;

if c>max then max:=c;

if d>max then max:=d;

end;

begin

write('Nhap 4 so: '); readln(a,b,c,d);

write('So lon nhat la: ',max(a,b,c,d):0:4);

readln

end.

Program BTH;
uses crt;
var a,b,c,d,max:real;
begin
        clrscr;
        write('Nhap so 1: '); readln(a);
        write('Nhap so 2: '); readln(b);
        write('Nhap so 3: '); readln(c);
        write('Nhap so 4: '); readln(d);
        max:=a;
        if b>max  then max:=b;
        if c>max  then max:=c;
        if d>max  then max:=d;
        begin
        writeln('Max: ',max:4:2);
        end;
        readln;
end.