Program PascalGuru;
label 1;
 
var i:integer;
    s,sub:string;
 
procedure podscet(s:string);
var i,k:integer;
    b:set of char;
begin
b:=['A'..'z'];
k:=0;
for i:=1 to length(s) do
if s[i] in b then inc(k);
write('Kol-vo bukv= ',k);
end;
{--------------------------------------}
begin
write('Vvedite stroku:'); readln(s);
 
1:for i:=1 to length(s) do
	if (s[i]=' ') then
	begin
      writeln; 	
			sub:=copy(s,1,i-1);
      write('V slove "',sub,'" '); podscet(sub);               		
	  	delete(s,1,i);
	  	goto 1;
  end;
{************}
sub := s;
writeln; 	
write('V slove "',sub,'" ');  podscet(sub);
 
readln;
end.