Каждое слово на новой строке Опции

[GAI]

Дали задачу: написать программ, печатающую содержимое своего ввода, помещая по одному слову на каждой строке!
Нужна помощь! Вообще-то она нужна на С, но я думаю потом попробывать перевести сам, а если кто могёт, помогите аожалуйста сразу на С
Люблю Pascal! Ненавижу С!

[P@sh@]

так бы сразу и сказал!
самый простой вариант:

Код

uses max_crt; {или просто crt}
var c: char;
begin
 repeat
   c:=readkey;
   if c=' ' then writeln else write(c);
 until c=#13;
end.