Inverse

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,i, a: integer;
num: array[1..10] of integer;
begin
reset(input, 'inverse.in');
rewrite(output, 'inverse.out');
readln(n);
for i:= 1 to n do
begin
read(a);
num[a]:= i;
end;
for i:= 1 to n do begin write(num[i]); write(' '); end;
{ TODO -oUser -cConsole Main : Insert code here }
end.