Дана строка символов. Подсчитать общее кол-во знаков (+,-,*), входящих в эту строку

Решение на паскале. var s: string; i,a,b,c: integer; begin readln (s); for i: =1 to length (s) do if s[i]='+' then inc (a) else if s[i]='-' then inc (b) else if s[i]='*' then inc (c); write ('В этой строке: "+" — ',a,'; "-" — ',b,'; "*" — ',c) end.