VAR
 A,A1,A2,B:Array[1..100] of Integer;
 i,N,NB,Min,k:Integer;
 P:LongInt;
BEGIN
 Writeln('Task N1:');
 Write('N= ');
 Readln(N);
 Min:=32000;
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=Random(20);
   If A[i]<Min then Min:=A[i];
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  begin
   If (A[i] mod 2)<>0 then A1[i]:=A[i]*A[i] else A1[i]:=A[i];
   Write(A1[i]:4);
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  begin
   If (i mod 2)=0 then A2[i]:=A[i]+Min else A2[i]:=A[i];
   Write(A2[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln('Task N2:');
 Write('k= ');
 Readln(k);
 NB:=0;
 For i:=1 to N do
  If (A[i] mod 10)=k then
   begin
    Inc(NB);
    B[NB]:=A[i];
    Write(A[i]:4);
   end;
 Writeln;
 Writeln;
 Writeln('Task N3:');
 P:=1;
 For i:=1 to N do
  If (A[i] mod 3)=0 then  P:=P*A[i];
 Writeln('P= ',P);
 Readln
END.