var
  input, output :text;
  ch :integer;
  a :real;

begin

  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  rewrite(output);
  
  ch:= 0;
  while not Eof(input) do
  begin
    if ch = 6 then
    begin
      writeln(output);
      ch:= 0;
    end;
    read(input,a);
    write(output,a:5:8,' ');
    inc(ch);
  end;
  
  close(input);
  close(output);

end.