Const
 N=3;
Var
 A,B:array[1..N]of integer;
 i:integer;
 C:boolean;
Begin
WriteLn('Введи первой перестановки');
For i:= 1 to N do
 Read(A[i]);
WriteLn('Введи элементы второй перестановки');
For i:= 1 to N do
 Read(B[i]);
i:=1;
Repeat
i:=i+1;
if B[A[i]]<>i then C:=true
Until (C)or(i=N);

if not(C) then WriteLn('Вторая перестановка обратна первой')
else WriteLn('Вторая перестановка не обратна первой')

End.