Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300;300] и вывести его на экран в строчку, с именем каждого элемента массива и его индексом. Обнулить все элементы кратные 3, но не кратные 5 и вывести измененный массив на экран

Program help;Uses Crt;Const n = 10; (* Размер массива *)Var a : Array[1..n] of Integer; (* Массив с числами *) i : Integer;BeginRandomize;ClrScr;Writeln('Массив: ');For i := 1 to n do Begin a[i] := random(601) - 300; (* Заполняем рандомными числами *) Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *) if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *) End;Writeln('Массив после изменения: ');For i := 1 to n do Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)End.