var
s: string;
i, c, b: integer;
begin
Print('Введите строку из русских букв (кроме ё) и цифр:');
read(s);
for i := 1 to Length(s) do
case OrdAnsi(s[i]) of
48..57: c := c + 1;
192..255: b := b + 1;
end;
Println('Количество цифр в строке=', c);
Println('Количество русских букв в строке=', b);
end.
