Đề 
Bài 1: Nhập chu vi của một hình chữ nhật từ bàn phím sau đó in ra diện tích lớn nhất mà hình chữ nhật đó có thể có được
 
Bài 2: Nhập từ bàn phím một số tự nhiên N (0
 
bài 3: Nhập vào từ bàn phím số nguyên dương N (1
trị nhỏ hơn 1000
     Xuất ra màn hình các kết quả sau:
        - Dòng 1 ghi N số đã cho sau khi xếp theo thứ tự giảm.
        - Dòng 2 ghi số T là tổng của N số đã cho.
 
                                                                Đáp án
Bài 1:
Program bai1;
uses crt;
var cv, Smax : real;
Begin
        Clrscr;
        kt:=0; repeat
                     Clrscr;
                      write(` Nhap chu vi hinh chu nhat: `);
                      Readln(cv);
         until  (cv>0);
  Smax := sqr(cv/4);
  Writeln(`Dien tich lon nhat ma HCN co the co duoc la: `, Smax:0:2);
Readln;
End.
 
 
Bài 2
Program bai2;
uses crt;
var  n,i,j,k:longint;
       kt: byte;
Begin
          Clrscr;
          kt:=0; repeat
                     Clrscr;
                     Write(`Nhap so N:`);
                      Readln(n);
          until n<=100;
        For i:=1 to n-2 do
               For j:=i+1 to n-1 do
                       For k:=j+1 to n do
                              if ((i+j+k)=n) and (i<>j) and (j<>k) then 
                                 begin
                                     Writeln( n , ` = ` ,  i , ` + ` , k);
                                     kt := kt+1;
                                 end;
       if kt=0 then write(`KHONG CO`);
       Readln;
End.
 
 
Bài 3:
Program Bai3;
uses crt;
Var s , n , i , j , t: integer;
      a: array[1..20] of integer;
Begin 
                  Clrscr;
                   Repeat
                         Clrscr;
                          Write(`Nhap so N: `);
                          Readln(N);
                   Until n<30;
                  Writeln(` SAP XEP DAY SO: `);
                 write(` Nhap so phan tu cua day n= `); Readln(n);
                  For i=1 to n do
                          Begin
                                  Write(`a[ `, i ,` ] = `);
                                  Readln(a[i]);
                          End;
                   {Sap xep day so giam dan}
                  For i:=1 to n-1 do
                         For j:=i+1 to n do
                               If a[i]
                                    Begin
                                         t:= a[i];
                                         a[i]:=a[j];
                                         a[j]:=t;
                                    End;
                  Writeln(` Day sau khi sap xep giam dan la:`);
                              For i:=1 to n do
                                   write(a[i]); Readln;
                         {Tinh tong day}
                          s:=0;
                         For i:=1 to n do s:= s+a[i];
                         writeln(` Gia tri tong la: `,s)
                Readln;
End.
 
Bài viết: THI TIN HỌC TRẺ HUYỆN TÂY HÒA LẦN THỨ V-NĂM 2014 (Đề thi và đáp án Nguồn