program begin_kereso;
var f:text;
    S:string;
    b,e:byte;
procedure keres(minta,miben:string; var szamlalo:byte);
var p:byte;
begin
   repeat
   p:=pos(minta,miben);
   if p>0 then
          begin
           inc(szamlalo);
           miben:=copy(miben,p+2,length(miben)-p-1);
          end;
   until p=0;
end;
begin
     Readln(s);
     Assign(f,s);
     reset(f);
     while not eof(f) do
     begin
      readln(f,s);
      keres('end',s,e);
      keres('begin',s,b);
     end;
     writeln('Endek szama: ',e,' Beginek szama: ',b);
     readln
end.