var
  ar, arb: array[1..5] of integer;
  i, j, k: integer;
  b: boolean;

begin
  for i := 1 to 5 do
    read(ar[i]); //Вводим массив
  for i := 1 to 5 do 
    if ((ar[i] <= 20) and (ar[i] >= 10)) or ((ar[i] >= 80) and (ar[i] <= 90)) then begin
      inc(k); // Проверяем, входит ли число в данный промежуток
      arb[k] := i; // Запоминаем найденные элементы в другой массив
    end;
  for i := 1 to 5 do
    if arb[i] <> 0 then write(ar[arb[i]], ' ');
  write('      ');// отступ
  for i := 1 to 5 do 
  begin//костыль
    b := true; 
    for j := 1 to 5 do
      if arb[j] = i then b := false;
    if b then write(ar[i], ' ');
  end;
end.