Var
S:string;
N,i:integer;
C:char;
Begin
WriteLn('Введи строку');
ReadLn(S);
WriteLn('Введи символ');
ReadLn(C);
For i:= 1 to Length(S) do
if S[i]=C then N:=N+1;
WriteLn(N)
End.