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.