Дана строка.Определить сколько раз входит в нее группа букв a b c.
Пожалуйста,не надо писать решай сама!

var a,b,c, s:string; i,c:integer;beginreadln(s);readln(a,b,c);for i:=1 to length(s) do beginif (s[i]=a) or (s[i]=b) or (s[i]=c) thenc:=c+1;end;writeln('Группа букв a b c встречается ', c, ' раз');readln;end.