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.