Паскаль.Одномерный массив произвольной размерности заполнить случайными числами [-30;25].Найти количество элементов значение которых кратно 3 и имеют четные номера

const   n = 100;   var   a : array [1..n] of integer;   i, count : integer;   begin   count := 0;   for i := 1 to n do     a[i] := round (random (55)) - 30;   for i := 1 to n do     if  (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);   writeln  (count); end.

var   a:array[1..100] of integer;   n, i, count:integer; begin   write('Введите количество элементов массива '); readln(n);   writeln('Исходный массив: ');   count := 0;   for i := 1 to n do   begin     a[i] := random(56) - 30;     write(a[i], ' ');     if (i mod 2 = 0) and (a[i] <>0) and (a[i] mod 3 = 0) then       inc(count);   end;   writeln;   writeln('Количество элементов стоящих на четных местах и кратных 3 равно ', count); end.