Сортировать только парные элементы и парные номера в динамическом массиве.

1) var a,b,r,i:longint; begin Readln(a,b); If a> b then begin r:=a;a:=b;b:=r;end; For i:=a to b do Writeln(I); end. 2) var a,b,i:longint; begin Readln(a,b); For I:=a to b do If I mod 2<>0 then writeln(i); End. 3) var a,b,i,s,symm:longint; begin Readln(a,b); s:=0;symm:=0; For I:=a to b do begin If I mod 2<>0 then s:=s+I; If I mod 3=0 then symm:=symm+I; End; Writeln(s,symm); end. 4) var r,p,a,n,i:longint; begin readln(a,n); r:=n; If n<0 then r:=-n; p:=1; for i:=1 to r do p:=p*a; if n<0 then writeln(1/p) else writeln(p); end.

Var j,n,i:longint;     
     a,b:array [1..1000] of integer;
begin         
         readln(n);// считываем число         
         i:=1;// начинаем с первого элемента массива
         while (n>0) do //пока n больше нуля
         begin
                a[i]:=n mod 10;  //тем самым выбираем последнюю цифру числа
                n:=n div 10; // откидываем последнюю цифру
                i:=i+1;// следующий элемент массива
         end;
                // по окончании в массиве a будет храниться наше число только
               // в обратном порядке
         i:=i-1;// теперь i равно длине числа +1 поэтому отнимаем 1
         for j:=i downto 1 do // с конца массива а до 1
         begin
                b[i-j+1]:=a[j]; // заполняем b в обратном порядке
         end;
         //теперь в массиве b хранится наше число в нужном порядке
         for j:=1 to i do
         begin
                       write(b[j],' ');
         end;
end.