uses crt;
var c:char;
n,i,k1,k2:integer;
begin
clrscr;
writeln('Сколько символов ввести? n=');
readln(n);
k1:=0;k2:=0;
for i:=1 to n do
begin
readln(c);
if c ='+' then k1:=k1+1;
if c ='*' then k2:=k2+1;
end;
writeln('Символ + введен ',k1,' рз. символ * - ',k2,' рз.');
readln
end.