Составьте программу для решения задачи подсчёта частоты появления символа в строке.

• c := 0;
• for i:=1 to length\(s\) do
• if s
  \[i\]
  = ch then
• c := c + 1;
• writeln\(c\);