Помогите плиз

var

mas : array [1 .. 10] of integer;

i : integer;



function f(n:integer):integer;

begin

f: = n xor 5;

end;



begin

for i: = 1 to 10 do read(mas[i]);

for i: = 1 to 10 do mas[i]: = f(mas[i]);

end.

Определите, какими значениями был заполнен массив mas, если в результате выполнения программы в массиве mas были получены следующие значения {13 0 7 6 1 4 2 3 12 5}. В ответе запишите через пробел элементы массива mas с первого по десятый.