PROGRAM TuKpa6;
var
kon1:array[1..40] of integer;
kon2:array[1..40] of integer;
i:integer;
BEGIN
  randomize;
  for i:=1 to 40 do
    begin
      kon1[i]:=random(-10,40);
      writeln('kon1[',i,']=',kon1[i]);
    end;
  for i:=1 to 40 do
    begin
      kon2[i]:=kon1[i]*kon1[40];
      writeln('kon2[',i,']=',kon2[i]);
    end;
END.