program dg;
var s,sl:string;
    m:array[1..100] of string;
    i,j,k,p,n,kol:integer;
 
begin
write('Vvedite TEXT (slova cerez PROBEL):  '); readln(s);
write('ISCEM - ? :  '); readln(sl);
i:=0;
repeat
inc(i);
p:=pos(' ',s);
m[i]:=copy(s,1,p-1);
delete(s,1,p);
until p=0;
n:=i;
m[n]:=s;
   writeln('Naideno:');writeln;
for i:=1 to n do  begin  kol:=0;
for j:=1 to length(sl) do
if pos(sl[j],m[i])<>0 then inc(kol);
 
if (length(m[i])-kol)<3 then
writeln('*',m[i]);
                  end;
 
                  readln;
 
end.