var a,b,c:array[1..100] of integer;
    t,i,j,m,n:integer;
    u:boolean;
begin
  readln(n);
  writeln('array a');
  repeat
    u:=true;
    for i:=1 to n do
      read(a[i]);

    for i:=1 to n-1 do
       for j:=i+1 to n do
         if a[i]=a[j] then begin
           u:=false;
           writeln('error in array a, re enter array a');
         end;
  until u;
  writeln('array b');
  for i:=1 to n do
    read(b[i]);
  for i:=1 to n do
    c[i]:=a[i]*b[i];
  writeln('array c');
  for i:=1 to n do
    write(c[i],'  ');
  writeln;
  for i:=1 to n-1 do
    begin
      m:=i;
      t:=c[i];
      for j:=i+1 to n do
        if t>c[j] then begin
           m:=j;
           t:=c[j];
        end;
        c[m]:=c[i];
        c[i]:=t;
    end;
  writeln('array c');
  for i:=1 to n do
    write(c[i],'  ');
  readln;
end.