Выведите количество подстрок строки a, являющихся циклическими сдвигами строки b

var
s,ss:string;
c,i,j,q,ans:longint;
bol:boolean;
begin
readln(s);
readln(ss);
i:=1;
 
for c:=1 to length(ss) do begin
ss:=ss[length(ss)]+copy(ss,1,length(ss)-1);
writeln(ss);
i:=1;
 
while i<=length(s) do begin
j:=1;
bol:=false;
    if s[i]=ss[j] then begin
        q:=i;
        bol:=true;
        while true  do begin
            inc(j);
            inc(q);
            if s[q]<>ss[j] then begin
            bol:=false;
            break;
            end;
            if (j=length(ss)) then begin
 
            break;
            end;
            if (q=length(s)) then begin
            if j<length(s) then bol:=false;
            break;
            end;
        end;
 
    end;
    if bol then begin
    i:=q+1 ;
 
    inc(ans);
    end
    else
    inc(i);
end;
 
end;
writeln(ans);
end.

uses Strutils;
var
  a,b:string;
  i,j,c:longint;
begin
  readln(a);
  readln(b);
  for i:=1 to length(b) do begin
     b:=copy(b,2,length(b))+b[1];
     j:=PosEx(b,a,1);
     while j>0 do begin c:=c+1;j:=posEx(b,a,j+length(b));end;
   end;
   write(c);
end.

var
  a, b: String;
  j, r: Integer;
begin
  ReadLn(a); ReadLn(b);
  for j:=1 to Length(b) do begin
    b:=b[Length(b)]+Copy(b,1,Length(b)-1);
    Inc(r,Ord(Pos(b,a)>0));
  end;
  WriteLn(r);
end.

uses Strutils;
var
  a,b:string;
  i,j,c,k,l:integer;
  t:array of string;
begin
  readln(a);
  readln(b);
  for i:=1 to length(b) do begin
     b:=copy(b,2,length(b))+b[1];
     l:=0;
     for j:=0 to k-1 do if t[j]=b then l:=1;
     if l=0 then begin
       k:=k+1;
       setlength(t,k);t[k-1]:=b;
       j:=PosEx(b,a,1);
       while j>0 do begin c:=c+1;j:=posEx(b,a,j+1);end;
     end;
   end;
   write(c);
end.

{$H+}
uses StrUtils;
var
  a: String;
  b: String[100];
  i, j, c, k: Integer;
  t: array of String;
begin
  ReadLn(a); ReadLn(b);
  SetLength(t,Length(b));
  for i:=1 to Length(b) do begin
     b:=Copy(b,2,Length(b))+b[1];
     j:=k-1; while (j>=0) and (t[j]<>b) do Dec(j);
     if j<0 then begin
       t[k]:=b; Inc(k);
       j:=PosEx(b,a,1);
       while j>0 do begin
         Inc(c); j:=PosEx(b,a,1+j);
       end;
     end;
   end;
   WriteLn(c);
end.