Сформировать одномерный массив из 15 элементов (значения элементов
задаются случайным образом). Увеличить элемент в 2 раза, если он стоит на
четном месте. Вывести на экран исходный и итоговый массивы.

тоже самое, вроде write и rondom в abs есть, синтаксис вроде такой же в данном случае, отличия у них вроде при работе с графикой....

вначале допиши

var mas: array [0..14] of integer;

index: integer;

begin и в конец кода end;

for index:=0 to 14 do begin      mas[index] = random(100);      write(mas[index], " ");      if index mod 2 = 0 then begin             mas[index]:=mas[index]*2;      end;end;writeln();for index:=0 to 14 do      write(mas[index], " ");