Пользователь вводит текст, программа должна подсчитать в нём число символов число строк число слов число цифр считать словом любую последовательность непробельных символов, разделённую пробельными символами.

Var a: string;     words, nums, chars, i, sen: integer; begin       readln(a);       words : = 1;       for i : = 1 to length(a) do           begin           if (a[i] = ' ') then inc(words);           if (a[i] in ['0'..'9']) then inc(nums);           if (a[i] = #13) then inc(sen);           if (a[i] in ['a'..'z', 'a'..'z', 'а'..'я', 'а'..'я']) then inc(chars);       end;       writeln(words, ' words', #13, chars, ' chars (', nums, ' numbers)', #13, sen, ' sentences'); end.разве что на строки проверить не могу, т.к. у меня только pascalabc, но должно работать =)