//Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и
// сумму двух наименьших. Программа должна вывести две этих суммы в указанном порядке. Программа
// получает на вход целые числа, количество введённых чисел не известно, последовательность чисел
// заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество
// чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
var

  min1, min2, max1,max2,s,k,a : integer;
begin
  readln(a);
  max1 := -30000;
  max2 := -30000;
  min1 := 30000;
  min2 := 30000;
  while a <> 0 do
  begin
    if a > max1 then
    begin
      max2 := max1;
      max1 := a;
    end
    else
      if a > max2 then max2 := a;

    if a < min1 then
    begin
      min2 := min1;
      min1 := a;
    end
    else
      if a < min2 then min2 := a;

    readln(a);
  end;

  writeln(max1);
  writeln(max2);

  writeln(min1);
  writeln(min2);





end.