Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất.

Program So_Lon_Nhat_1;

Uses crt;

Var a,b,c,d: real;

Begin

     Clrscr;

     Write('Nhap so thu nhat:');readln(a);

     Write('Nhap so thu hai:');readln(b);

     Write('Nhap so thu ba:');readln(c);

     Write('Nhap so thu tu:');readln(d);

     if (a>=b) and (a>=c) and (a>= d) then writeln('So lon nhat la:',a:10:2);

     if (b>=a) and (b>=c) and (b>= d) then writeln('So lon nhat la:',b:10:2);

     if (c>=a) and (c>=b) and (c>= d) then writeln('So lon nhat la:',c:10:2);

     if (d>=a) and (d>=b) and (d>= c) then writeln('So lon nhat la:',d:10:2);

     readln

end.

/chúc bạn học tốt/

Nhớ vote cho mình nhé!

uses crt;
var a,b,c,d:longint;
begin
clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   write('c=');readln(c);
   write('d=');readln(d);
   write('So lon nhat: ');
   if(a>b)and(a>c)and(a>d) then write(a) else
   if(b>a)and(b>c)and(b>d) then write(b) else
   if(c>a)and(c>b)and(c>d) then write(c) else
   if(d>a)and(d>c)and(d>b) then write(d) else write(a);
readln
end.