Паскаль

Вывести значение каждого третьего элемента последовательности, начиная с первого.

var i,a,y:integer;mass:array[1..200] of integer;beginwriteln('Введите кол-во элементов массива');read(a);y:=3;for i:=1 to a doread(mass[i]);for i:=1 to a doif i=y then beginy:=y+3;write(mass[i]:5);end;end.