Cho ba số a, b, c. Tìm số lớn nhất, gán giá trị Max. Cho bốn số a, b, c, d. Tìm số bé nhất, gán giá trị Min Mọi người giải giúp mình(em) nhanh nhanh với ạ, em gần đi học rồi ạ.

Program mmmm;

Uses crt;

Var a, b, c, max: real;

Begin

Clrscr;

Write('Nhap 3 so a b c'); Readln(a,b,c);

max:=a;

If max< b then max:=b;

If max < c then max:=c;

Write('So lon lon  trong 3 so ',max);

Readln

End.

--------------

Program mmhm;
Uses crt;
Var a, b, c, d, min : real;
Begin
Clrscr;
Write('Nhap 4 so a b c d'); Readln(a,b,c,d);
min:=a;
If min > b then min:=b;
If min > c then min:=c;

If min > d then min:=d;
Write('So nho nhat trong 3 so ',min);
Readln
End.

Trong lúc làm có thể có sai sót, mong bạn kiểm tra lại

Bạn lấy câu trả lời của yiyiducnhat sẽ chuẩn hơn đấy, vì lâu r mình cx chưa động lại pascal