viết chương trình Nhập 4 số a, b, c, d. Hãy tìm giá trị lớn nhất của chúng và gán giá trị đó cho biến Max

Program BTH;
uses crt;
var a,b,c,d,max:longint;
procedure BTH1;
Begin
Write('a= ');readln(a);
Write('b= ');readln(b);
Write('c= ');readln(c);
Write('d= ');readln(d);
end;
procedure BTH2;
Begin
max:=a;
If max<b then max:=b;
If max<c then max:=c;
If max<d then max:=d;
end;
procedure BTH3;
Begin
writeln('So lon nhat trong 4 so tren la: ',max);
end;
Begin
clrscr;
BTH1;
BTH2;
BTH3;
readln;
end.

Var Max, a, b, c, d: Real;

BEGIN

Writeln ('Nhap gia tri cua 4 so: ');

Write ('a = ') ; Readln (a);

Write ('b = ') ; Readln (b);

Write ('c = ') ; Readln (c);

Write ('d = ') ; Readln (d);

Max:= a;

If Max < b Then Max:= b;

If Max < c Then Max:= c;

If Max < d Then Max:= d;

Writeln ('Gia tri lon nhat la: ', Max);

Readln;

END