Developing.ru

flag:=true;
for i:=1 to length(s) do
begin
if s='(' then flag:=false;
if flag then s1:=s1+s;
if s=')' then flag:=true;
end;

var a,b,k:string;
i,kl,ks,n:longint;
begin
write('Введите букву:');
readln(k);
write('Введите тест:');
readln(a);
n:=length(a);
for i:=1 to n-1 do begin
b:=copy(a,i,1);
if (b=k)then kl:=kl+1
else kl:=0;
if kl=3 then ks:=ks+1;
end;
write(ks);
end.