Const
 N=20;

Var
 A:Array[1..N] of Integer;
 i:Integer;

Function Prod(M:Integer):Integer;
var j,P:Integer;
begin
 if M<4 then P:=M
 else
 begin
  P:=1;
  for j:=M downto 2 do
   if (M mod j)=0 then P:=P*j;
 end;
 Prod:=P;
end;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   A[i]:=Random(16)+1;
   write(A[i]:8);
  end;
 writeln;
 writeln;
 Writeln('New array:');
 for i:=1 to N do
  begin
   A[i]:=Prod(A[i]);
   write(A[i]:8);
  end;
 Readln
End.

var
 a,b:string;
 k,i:integer;
 S:Set of Char;
begin
 S:=['A'..'Z']+['a'..'z']+['А'..'Я']+['а'..'я']+['0'..'9'];
 write('text: ');
 readln(a);
 write('slovo: ');
 readln(b);
 k:=0;
 while pos(b,a)>0 do
  begin
   if ((pos(b,a)=1) and not (a[pos(b,a)+Length(b)+1] in S)) or
      (not (a[pos(b,a)-1] in S) and not (a[pos(b,a)+Length(b)] in S)) or
      (not (a[pos(b,a)-1] in S) and (pos(b,a)+Length(b)-1=Length(a))) then k:=k+1;
   delete(a, pos(b,a), length(b));
  end;
 writeln(k);
 readln;
end.