Сформировать массив - Pascal (93613)

Формулировка задачи:

Здравствуйте. Помогите с решением. Заранее благодарен.

Решение задачи: «Сформировать массив»

Листинг программы

 type
 mas=array [1..50] of integer;
 var
  i,n:integer;
  A:mas;
 begin
   writeln('Введите n');
   read(n);
   for i:=1 to n do
    begin
     A[i*2-1]:=-i;
     A[i*2]:=i;
    end;
   for i:=1 to n do
      write(A[i]:3);
      writeln;
 end.

Объяснение кода листинга программы

Объявление переменных: — mas - массив из 50 целых чисел; — i, n - целочисленные переменные для цикла; — A - ссылка на массив.
Ввод числа n с помощью функции read.
Два вложенных цикла: — Внешний цикл выполняется от 1 до n. — Внутренний цикл выполняется от 1 до 2*n.
Значения i и n используются для индексации массива A.
Внутренний цикл формирует значения для четных индексов массива A, а внешний цикл выводит эти значения.
Вывод значений массива A с помощью функции write(A[i], 3).
Завершение программы.