uses crt;

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

i, j, n, t, b1, b2 : integer;

begin

clrscr;

write('Nhap so phan tu n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

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

t := A[1] * A[2]; b1 := A[1]; b2 := A[2];

for i := 1 to n do

for j := 1 to n do

if i <> j then

if A[i] * A[j] < t then

begin t := A[i] * A[j];

b1 := A[i]; b2 := A[j]; end;

write('Tich 2 so nho nhat : ', b1 ,', ', b2);

readln

end.

uses crt;

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

t,i,j,n: 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;

Writeln ('2 so co tich nho nhat: ',a[1],' ; ',a[2]);

readln;

end.

$#Trumtinhoc$