создать массив из 19 символьных элементов вывести его элементы имеющие номер кратный трем

var a:array[1..100] of integer;

i:integer;

begin readln(n);

for i:=1 to n do

begin

read(a[i]); // Заполняем массив

if i mod 3=0 then // Проверка на кратность номера элемента 3ем

write(a[i], ' ');

end;

end.