Program 4_SO_LON_NHO;
Uses Crt;
Uses crt; Var a, b, c, d, Max, Min : integer;
Begin
clrscr; 
write (‘Nhap a, b, c, d : ’);
readln (a, b, c, d);
{Tim gia tri lon nhat} Max := a;
if b > Max then Max := b;
if c > Max then Max := c;
if d > Max then Max := d;
writeln (‘Gia tri lon nhat la : ’, Max);
{Tim gia tri nho nhat} Min := a;
if b < Min then Min := b;
if c < Min then Min := c;
if d < Min then Min := d;
writeln (‘Gia tri nho nhat la : ’, Min);
readln;
End.
Cái này tìm lớn nhất với nhỏ nhất luôn nha!