Кто от кого получил подарок? - Free Pascal

Формулировка задачи:

Здравствуйте. Помогите решить такую вот интересную задачку(заранее спасибо): Петя сам решил понаблюдать за процессом обмена подарками между своими друзьями, оставаясь в стороне. Он пронумеровал всех своих друзей целыми числами от 1 до n. Петя запомнил, что друг с номером i подарил подарок другу с номером pi. Он также запомнил, что каждому из его друзей достался ровно один подарок. Теперь для каждого друга i Петя хочет узнать номер друга, который подарил ему подарок.

Входные данные

В первой строке записано одно целое число n (1 ≤ n ≤ 100) — количество приглашенных на вечеринку друзей Пети. Во второй строке записаны n целых чисел через пробел: i-ое число задает pi — номер друга, которому подарил подарок друг с номером i. Гарантируется, что каждый друг получил ровно один подарок. Возможно, что некоторые друзья не разделяют мнения Пети о приятности дарения подарков другим, а поэтому подарили подарок сами себе.

Выходные данные

Выведите n целых чисел, разделенных пробелом: i-ое число должно быть равно номеру друга, от которого получил подарок друг с номером i.

Примеры тестов

входные данные

4 2 3 4 1

выходные данные

4 1 2 3

входные данные

3 1 3 2

выходные данные

1 3 2

Решение задачи: «Кто от кого получил подарок?»

Листинг программы

var
  a:array[1..100] of integer;
  i,n:integer;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  for i:=1 to n do
    for n:=1 to n do
      if a[n]=i then write(n,' ');
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Free Pascal. Программа запрашивает у пользователя количество подарков, а затем список получателей подарков. Затем выводится список отправителей подарков.

Объявляется массив a размером 100 для хранения чисел (возможно, это идентификаторы получателей или отправителей).
Вводятся два целочисленных параметра: i (счетчик получателей) и n (общее количество подарков).
С помощью цикла for происходит чтение в массив a чисел (возможно, это идентификаторы получателей).
С помощью двух вложенных циклов for происходит проверка каждого элемента массива a и вывод на экран соответствующего отправителя. В результате получается список отправителей подарков.