uses crt;
var x: array[1..100] of integer;
i,m,min1,min2,vt1,vt2: integer;
begin
clrscr;
write ('Nhap M: ');   readln(M);
for i:=1 to m do
begin
write ('Nhap X[',i,']: ');  readln (X[i]);
end;
min1:=x[1];
vt1:=1;
for i:=2 to m do
if min1>x[i] then begin min1:=x[i]; vt1:=i; end;
min2:=min1+x[m];
for i:=1 to m do
if (min2>x[i]) and (i<>vt1) then  begin min2:=x[i]; vt2:=i; end;
writeln ('2 so nho nhat: ',min1,' ; ',min2);
writeln ('Vi tri: ',vt1,' ; ',vt2);
readln;
end.

uses crt;
var
    x: array[0..100000] of longint;
    i, m: longint;
    min1, min2, vt1, vt2: longint;

procedure swap(var a, b: longint); begin a:=a + b; b:=a - b; a:=a - b; end;

begin
    clrscr;
    readln(m);
    for i:=1 to m do read(x[i]);
    
    min1:=x[1]; min2:=x[2]; vt1:=1; vt2:=2;
    if min1 > min2 then begin
        swap(min1, min2);
        swap(vt1, vt2);
    end;
    
    for i:=3 to m do begin
        if x[i] <= min1 then begin
            min2:=min1;
            vt2:=vt1;
            
            min1:=x[i];
            vt1:=i;
        end else if x[i] < min2 then begin
            min2:=x[i];
            vt2:=i;
        end;
    end;
    writeln(min1, ' ', min2);
    writeln(vt1, ' ', vt2);
readln;
end.