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

Пусть в массиве Х[1..MAX] храниться заданная последовательность. Тогда МАХ- количество элементов в последовательности.Тогда нижеописанный блок программы позволит вывести на экран каждый третий элемент. for k:= 1 to MAX do begin if (k mod 3) = 0 then begin writeln( X[k] ); end; end;Строка \" for k:= 1 to MAX do\" начинает цикл, в тором перебираются все элементы массива (от 1 до МАХ).В строке \" if (k mod 3) = 0 \" рассчитывается остаток от деления номера элемента на \"3\". И если остаток равен \"0\", то такой элемент выводится на экран.