Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.

Question

Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.

---

Answer 1

program tref;
var a,i:integer;s:string;b:char;
begin
readln(s);
readln(b);
for i:=1 to length(s) do
if(s[i]=b)then a:=a+1;
writeln(a);y
end.
Сначала вводим строку,потом символ