Program PascalGuru;
label 1;
 
var i:integer;
    s,sub:string;
    sc:integer;
 
{--------------------------------------}
begin
write('Vvedite stroku:'); readln(s);
sc:=0;
 
1:for i:=length(s) downto 1 do
	if (s[i]=' ') then
	begin
	inc(sc);
	if sc>3 then begin sc:=1; writeln; end;
			sub:=copy(s,i+1,length(s)-i);
      write(sub,' ');           		
	  	delete(s,i,length(s)-i+1);
	  	goto 1;
  end;
{*************}
sub := s;
writeln(sub); 	
 
readln;
end.