Перестановкой из n чисел называется-последовательность чисел,где каждое число от 1 до n встречается ровно один раз.перестановка b1, является обратной перестановкой перестановки a1,, если b[ai]=1=i для каждого i от 1 до n.для заданных двух перестановок определите является ли вторая перестановка обратной первой формат входных данных в певой строке входного файла записано одно целое число n (1< =n< =1000)-размер перестановок.во второй запписаны n целых чисел b1, (1< =bi< =n)-вторая перестановка. формат выходных данных в единственной строке выходного файла выведите одно слово "yes",если вторая перестановка является обратной первой.иначе выведите "no".

uses crt;
var i,j,k,n,sum:integer;
a:array[1..100] of integer;
flag:boolean;
begin
flag:=false;
writeln('Input N');
read(n);
writeln('Input elements');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i<>j) and (j<>k) and (i<>k) then
if a[i]+a[j]+a[k]=0 then 
f flag=false then
writeln('No');
end.   uses crt;
var i,j,k,n,sum:integer;
a:array[1..100] of integer;
flag:boolean;
begin
flag:=false;
writeln('Input N');
read(n);
writeln('Input elements');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i<>j) and (j<>k) and (i<>k) then
if a[i]+a[j]+a[k]=0 then 
f flag=false then
writeln('No');
end.

Мы судьи с "ЕртисДарына" Ваша школа будет дисквалефецирована! 
Мы нашли вас по вашему 'Ip' коду