Program Task_16_63;
Var S,S1 : String;
count_char, count_word, i : Byte;
Begin
Write('vvedite predlozhenie'); ReadLn(S);
S := S+ ' ';
S1:=' ';
count_word:=0;
count_char:=0;
For i := 1 To Length(S) Do
If S[i]=' ' Then Begin
If count_char=3 Then Begin
count_word := count_word+1;
WriteLn(S1);
End;
S1:= ' ';
count_char:=0;
End
Else Begin
If S[i] in ['à', 'å', 'è', 'î' , 'ó', 'û', 'ý', 'þ', 'ÿ']
Then count_char := count_char+1;
S1 := S1 + S [i];
End;
Writeln('kol-vo slov sostoiashix iz 3-x slogov ', count_word);
End.