uses crt;        
const r:set of char=[' ',',','/','?','.','<','>',':',';','"','!',''','*','%'];        
        
var g,s,c:string;        
i,ns:byte;        
F:boolean;        
Begin        
clrscr;        
write('s=");        
readln (s);    
writeln('g=');  
readln(g);        
i:=1;        
F:=true;        
while i<=length(s) then          
{i - начало слова}        
  Begin        
    ns:=i;        
    C:='';        
    while (i<=length(s)) and NOT (s[i] in R) do        
{Проход по слову}        
    Begin        
  if pos(s[i],c)=0 then c:- c+s;        
inc (i);        
end;    
if pos(g,c)>=1 then  
  begin  
    delete(s,ns,i-ns);  
     f:=false;  
    i:=ns-1  
  end;  
  end;  
i:=i+1  
end;  
is f then  
writeln ('no');  
else  
writeln(s);  
readkey  
end.  
end.