uses crt;
var a,b,c,x,y:integer;
    dl,ch,n,cha,chb,chv:integer;
    text,text1:string;
    aa,bb,vv,cc:char;
    label 1,2,3;
begin
 clrscr;
 writeln('какие символы будем считать(a,b,c-через Enter)');
 readln(aa);
 readln(bb);
 readln(vv);
 writeln('Введите текст');
 readln(text);
 dl:=length(text);
 text1:=text;
 cha:=0;
 chb:=0;
 chv:=0;
 n:=pos(aa,text);
 1:if n>0 then
 begin
  cha:=cha+1;
  Delete(text1,1,n);
  dl:=length(text1);
  if dl>0 then
  begin
   n:=pos(aa,text1);
   goto 1;
  end
 end;
 text1:=text;
 n:=pos(bb,text1);
 2:if n>0 then
 begin
  chb:=chb+1;
  Delete(text1,1,n);
  dl:=length(text1);
  if dl>0 then
  begin
   n:=pos(bb,text1);
   goto 2;
  end
 end;
 text1:=text;
 n:=pos(vv,text1);
 3:if n>0 then
 begin
  chv:=chv+1;
  Delete(text1,1,n);
  dl:=length(text1);
  if dl>0 then
  begin
   n:=pos(vv,text1);
   goto 3;
  end
 end;
 writeln('В предложениии ',aa,' встречается ',cha,' раз(а) ');
 writeln('В предложениии ',bb,' встречается ',chb,' раз(а) ');
 writeln('В предложениии ',vv,' встречается ',chv,' раз(а) ');
end.