viết phương trình tìm phần tử nhỏ thứ ba của dãy cho trước ít nhất có ba phần tử

Thấy đề bài có vẻ lạ và khó, đánh đố học sinh, nhưng thực ra đây chỉ là cách ra đề mẹo thôi :D

Mô tả thuật toán: Giả sử đặt tên dãy là A. Sắp xếp dãy A thành dãy tăng dần, sau đó xuất giá trị của phần tử A[3] là xong ^^

uses crt;
var a:array[1..1000] of integer;
    n,i,j,t:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to n-1 do
   for j:=i+1 to n do
   if a[i]>a[j] then
   begin
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
   end;
   write('Phan tu nho thu 3 cua day la: ',a[3]);
   readln
end.