const
 A= 'A.txt';
 B= 'B.txt';
var
 InFile, OutFile: text;
 N,k: integer;
begin
 Assign(InFile, A);
 Reset(InFile);
 Assign(OutFile, B);
 Rewrite(OutFile);
 k:=0;
 while not Eof(InFile) do
  begin
   Readln(InFile, N);
   Inc(k);
   if k=3 then
    begin
     Writeln(OutFile,N:6);
     k:=0;
    end
   else
    Write(OutFile,N:6);
  end;
 Close(InFile);
 Close(OutFile);
end.