VAR
 S1,S2:STRING;

Function CountStr(str1,str2:STRING):BYTE;
 var
  i,j:INTEGER;
  b:BOOLEAN;
  N:BYTE;
 begin
  i:=0;
  N:=0;
  Repeat
   b:=true;
   For j:=1 to Length(str2) do
    If str1[i+j]<>str2[j] then b:=false;
   If b then
    begin
     Inc(N);
     Inc(i,Length(str2));
    end else Inc(i);
  Until i+Length(str2)>Length(str1);
  CountStr:=N;
 end;

BEGIN
 WriteLn('Enter the LONG string');
 ReadLn(S1);
 WriteLn('Enter the SHORT string');
 ReadLn(S2);
 WriteLn('N= ',CountStr(S1,S2));
 ReadLn;
END.