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

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, но должно работать =)