uses crt; var s : string ; d , i: byte ; begin clrscr; readln(s); while (s[1])=' ' do delete(s,1,1); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); s[1]:=upcase(s[1]); writeln(s); for i := 1 to length(s) do if (s[i]<>' ') and (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]=' ') then d := d + 1 ; writeln(d); end.
