Bài 1:

Program BTT;
Uses crt;
Var a,b,c,max: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        max:=a;

        If max<b then max:=b;

        If max<c then max:=c;

        Write('So lon nhat la: ',max);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a,b,c,d,min: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c, d: '); Readln(a,b,c,d);

        min:=a;

        If b<min then min:=b;

        If c<min then min:=c;

        If d<min then min:=d;
        Write('So nho nhat la: ',min);
        Readln
End.

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