Дана строка-предложение на русс. ЯзДана строка-предложение на русс. Яз Подсчитать…

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