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

решение на паскале.

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.