Кількість слів

Визначити кількість слів у заданому фрагменті тексту.

Вхідні дані

У єдиному рядку задано фрагмент тексту на англійській мові, кількість символів у якому не перевищує 250. Гарантується, що у тексті відсутні тире, дефіси, цифри і числа.

Вихідні дані

Єдине число - кількість слів у фрагменті.

Вхідні дані

Hello world!

Вихідні дані

2

Program Pidrachunok;

Var  f1,f2 : text;

kol2,kol1 : integer;

r : char;

Begin

Assign( f1,'input.txt');

Reset( f1 );

kol1:=1;

While not(eof( f1 )) do

Begin

Read( f1,r );

If r=' '  then kol1:=kol1+1;

end;

Close( f1 );

Assign( f2,'output.txt' );

Rewrite( f2 );

WriteLn(f2,kol1);

Close( f2 );

end.