program contaParole (input, output);

{programma per contare le parole in un testo. }
{Il carattere blank separa parole consecutive, }
{Il carattere '#' posto dopo la fine di una parola, }
{quindi dopo un blank, indica la fine dell'input. }

	const
		blank = ' ';
		fine = '#'
	var
		parole: integer;
		flag: boolean;
		c: char;
begin
  parole := 0;
  flag := false;
  read(c);
  while c <> fine do
    begin
      if c = blank then
        begin
	  if flag then
	    begin
	      parole := parole + 1;
	      flag := false
	    end;
        end
      else if not flag then
              flag := true;
      read(c);
    end;
  writeln('Testo di ', parole : 0, ' parole')
end.