Даны натуральное число n и символы .подсчитать , сколько раз среди данных символов встречается символ + и сколько раз символ *.

/write('введите количество символов->'); readln(n);
count:=0;
for i:=1 to n do
begin
write('введите символ №',i, ' ->'); readln(s);
if s='+' then count:=count+1;
end;
writeln('количество плюсов = ', count)