var
  n, i: integer;
  x, min1, min2: real;

begin
  write('Введите n: ');
  read(n);
  write('Введите n чисел: ');
  read(x);
  min1 := x;
  for i := 1 to n - 1 do
  begin
    read(x);
    if((i = 1) and (x > min1)) then min2 := x;
    if(x <= min1) then 
    begin
      min2 := min1;
      min1 := x; 
    end
    else if(x < min2) then min2 := x;
  end;
  write('Два самых маленьких числа: ', min1, ' и ', min2);
end.