Program P82;
 { Numărul de spaţii într-un şir de caractere }
var S : string;
 i, j : integer;
begin
 writeln('Daţi şiruri de caractere:');
 repeat
  readln(S);
  i:=0;
  for j:=1 to length(S) do
   if S[j]=' ' then i:=i+1;
  writeln('Numărul de spaţii=', i);
 until S='Sfîrşit';
end.