Результат работы программы, фрагмент которой ниже, содержимое массива А станет (введите в поле ввода в строку без пробелов):
…n:=9;for i:= 1 to n do a[i]:=i;j:=1; k:=0;for i:=1 to n do if a[i] mod 3=0 then begin b[j]:=i; j:=j+1; k:=k+1; end;for j:=k downto 2 do for i:=1 to j-1 do if a[b[i]]<a[b[i+1]] then begin x:=a[b[i]]; a[b[i]]:=a[b[i+1]]; a[b[i+1]]:=x; end;