VAR
 S,S1:String;
 Nabc,Naba,p:BYTE;
 f:Text;
BEGIN
 WriteLn('Enter the string');
 ReadLn(S);
 Nabc:=0;
 Naba:=0;
 S1:=S;
 Repeat
  p:=Pos('abc',S1);
  If p>0 then
   begin
    Delete(S1,p,3);
    Inc(Nabc);
   end;
 Until p=0;
 S1:=S;
 Repeat
  p:=Pos('aba',S1);
  If p>0 then
   begin
    Delete(S1,p,3);
    Inc(Naba);
   end;
 Until p=0;
 Writeln('"abc" occurs ',Nabc,' times; "aba" occurs ',Naba,' times');
 ReadLn;
END.