cho dãy A gồm N số nguyên A1...AN tính và đưa ra màn hình tổng của 2 số nhỏ nhất trong dãy A

uses crt;
var A:array[1..1000] of integer;
    N,i,j,tam: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
            tam:=A[i];
            A[i]:=A[j];
            A[j]:=tam;
         end;
   write('Tong cua 2 so nho nhat la: ',A[1]+A[2]);
   readln
end.

uses crt;

var a : array[1 .. 100] of integer;

i, j, n : integer;

begin

clrscr;

write('Nhap n : '); readln(n);

write('Nhap ', n ,' so nguyen : ');

for i := 1 to n do read(a[i]);

for j := n downto 2 do

for i := 1 to j - 1 do

if a[i] > a[i + 1] then begin

a[i] := a[i] + a[i + 1];

a[i + 1] := a[i] - a[i + 1];

a[i] := a[i] - a[i + 1]; end;

write('Tong hai so nho nhat : ', a[1] + a[2]);

readln

end.