program relay;

const
  N = 23;

var
  a: array[0..N] of real;
  team: array[1..4] of integer;
  i, j, k: integer;

begin
  for i := 1 to 4 do
    team[i] := 0;
  a[0] := 1000000;
  for i := 1 to N do
  begin
    read(a[i]);
    for j := 1 to 4 do
      if (a[team[j]] > a[i]) then
      begin
        for k := 4 downto j + 1 do
          team[k] := team[k - 1];
        team[j] := i;
        break;
      end;
  end;
  for i := 1 to 4 do 
    for j := i + 1 to 4 do
      if (team[i] > team[j]) then
      begin
        k := team[i];
        team[i] := team[j];
        team[j] := k;
      end;
  for i := 1 to 4 do
    writeln(team[i]);
end.