Все верно. Просто небольшие опечатки.
//----------------------------------------------

program primer; //имя программы вроде(необязательно)

var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.

i, s: integer; //Объявление двух целочисленных переменных

begin //начало

randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)

for i:= 1 to 10 do  //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

for i:= 1 to 10 do  //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

s:=0; //Переменной для суммы присваивается 0

for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива

write('сумма = ',s); //вывод сообщения и значение переменной s

end. //конец