Дана строка-предложение на русс. язДана строка-предложение на русс. яз Подсчитать кол-во содержащихся в строке знаков препинания....Программа паскаль АВС Очень нужно помогите!

Uses crt;
var i,ans:integer;
str:string;
begin
ans:=0;
readln(str);
for i:=1 to length(str) do
if (str[i]=.) or (str[i]=,) or (str[i]=;) or (str[i]=:) or (str[i]=?) or (str[i]=!)
then ans:=ans+1;
writeln(ans);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.