Даны действительные числа а1,…,а20. Получить: а) а20, а11, а19, а10,…,а10, а1; б)а1, а3,…,а19, а2, а4,…,а20; в)а1, а11, а3, а13,…,а9, а19; — Pascal(Паскаль)

uses crt;
const max=20;
var a,b:array[1..max+2] of byte;
    n,i,j,m:byte;
    x:byte;
begin
clrscr;
n:=max;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=i;
  write(a[i]:4);
 end;
writeln;
writeln;
n:=n+2;
writeln('Перестановка по пункту А:');
for i:=1 to n do
 begin
  if odd(i) then b[i]:=a[n-(i+1)div 2-1]
  else b[i]:=b[i-1]-9;
  write(b[i]:4);
 end;
writeln;
writeln;
writeln('Перестановка по пункту Б:');
n:=n-2;
for i:=1 to n do
 begin
  if i<=n div 2 then b[i]:=a[2*i-1]
  else b[i]:=a[2*(i-10)];
  write(b[i]:4);
 end;
writeln;
writeln;
writeln('Перестановка по пункту B:');
n:=n div 2;
for i:=1 to n do
 begin
  if odd(i) then b[i]:=a[i]
  else b[i]:=a[i+9];
  write(b[i]:4);
 end;
readln
end.