Ответ:

program z1;

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

i,s:integer;

begin

s:=0;

write('Массив: ');

for i:= 1 to 11 do //цикл для

begin //составной оперотор начало

a[i]:= random(90)+10; //присваивание значения элементам массива через random

write(a[i]:4); //форматиронный вывод значения элемента массива на экран

if i mod 3 = 0 then s:=s+a[i] //сокращённый условный оператор, условие кратности 3, подсчёт суммы

end; //составной оперотор конец

writeln;

writeln('Сумма элементов, имеющих индексы кратные 3, равна: ',s)

end.