Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).

Đề : Viết chương trình nhập từ bàn phím a,b,c,d in ra màn hình số lớn nhất.
Program TIM_SO_LON_NHAT;
Uses crt; 
Var a,b,c,d,max: real; 
BEGIN Clrscr; 
     Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); 
     Write('Nhap a='); 
     Readln(a); 
     Write('Nhap b='); 
     Readln(b); 
     Write('Nhap c='); 
     Readln(c); 
     Write('Nhap d='); 
     Readln(d); 
     max:=a; 
          If b>max then max:=b; 
          If c>max then max:=c; 
          if d>max then max:=d; 
     Writeln('So lon nhat la: ',max: 4: 2); 
Readln; 
END.