www.pudn.com > TJU.rar > ac1013.pas

program tju1013; 
var 
  s:string; 
  n,m,i,j,p,q:byte; 
  c:char; 
begin 
  repeat 
    s:=''; 
    repeat 
      read(c); 
      if c=' ' then break; 
      s:=s+c; 
    until false; 
    n:=length(s); 
    readln(m); 
 
    p:=0; 
    for i:=1 to n-m do begin 
      q:=p+1; 
      for j:=q+1 to m+i do 
        if s[j]