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é!