program lab7_8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, N: integer;
  str: string;
  UpArray, DownArray: array of integer;

procedure printArray(CurArr: array of integer);
var j: integer;
begin
  for j := 1 to Length(CurArr)-1 do
    write(CurArr[j], ' ');
  writeln;
end;

begin
  Write('Amount of numbers: ');
  Readln(N);
  SetLength(UpArray, N+1);
  SetLength(DownArray, N+1);
  write('Lower line: ');writeln;

  for i := 1 to N do
  begin
    UpArray[i]:= i;
    Read(DownArray[i]);
  end;
  Readln;

  Writeln('Initial position:');
  printArray(UpArray);
  printArray(DownArray);
  writeln;

  for i := 1 to N do
  begin
    UpArray[DownArray[i]]:= i;
  end;

  Writeln('Result:');
  printArray(DownArray);
  printArray(UpArray);

  readln;
end.