Câu 2 :
program C_T;
uses CRT;
var a,b:integer;
begin
writeln('nhap vao hai so nguyen a,b ');readln(a,b);
writeln('Hai so duoc in theo thu tu khong giam ');
if a<b then write(a,' ',b) else write(a,' ',b);
readln
end.

Câu 3 :
program C_T;
uses crt;
var a,b: real;
begin
Writeln('Nhap 2 so a,b: '); Readln(a,b);
If a>b then Writeln('A lon hon B') else
If a=b then Writeln('A bang B') else
Writeln('A nho hon B');
readln
end.

Câu 4 : 
program tong;
uses crt;
Var N ,S ,i ,X := integer;
Begin
clrscr; S := 0;
For i := 1 to N do 
begin 
write(' nhap so nguyen X ='); Readln(X);
S := S + X;
end;
writeln('tong cac so duoc nhap vao la: ',S);
readln
end.

Program Phan_loai;
uses crt;
Var      i, N, Gioi, Kha, Trungbinh, Kem: integer;
 A: array[1..100] of real;
Begin
    clrscr;
    write(‘Nhap so hoc sinh trong lop, N= ‘);            
    readln(N);
    writeln(‘Nhap diem :’);
       For i:=1 to N do
          Begin
               write(‘Diem cua hoc sinh thu ‘, i,’ =’);
               readln(A[i]);
          End;
Gioi:=0;
Kha:= 0;
Trungbinh:= 0;
Kem:= 0;
          for i:=1 to N do
               Begin
               if A[i] >= 8.0 then
                           Gioi:= Gioi + 1;
               if (A[i] <8.0 ) and (A[i] >=6.5)  then  
                          Kha:= Kha + 1;
               if (A[i] >= 5.0 ) and (A[i] < 6.5)  then
                          Trungbinh:= Trungbinh + 1;
               if a[i]<5.0 then
                           Kem:=Kem+1;
    end;
    writeln(‘ Ket qua hoc tap: ‘);
    writeln(Gioi, ‘ ban hoc gioi ‘);
    writeln(Kha, ‘ ban hoc kha ‘);
    writeln(Trungbinh, ‘ ban hoc trung binh’);
    writeln(Kem, ‘ ban hoc kem ‘);
    readln;
End.