procedure prints(s: string);
var n: word;
BEGIN
  n:=pos(' ',s);
  while n<>0 do
  begin
    writeln(copy(s,1,n-1));
    delete(s,1,n);
    n:=pos(' ',s)
  end;
  writeln(s)
END;
BEGIN
prints('word1 word2 word3 word4 word5')
END.