Пожалуйста посчитайте пожалуйстааааprogam primer;var a: array [1..10] of integer;i, s: integer;beginfor i:= 1 to 10 doa[i]:=random(15-5+1)+5;for i:= 1 to 10 dowrite (a[i], ' ');s:=0;for i:= 1 to 10 doof a[i] mod 3=0 thens:=5+a[i]write 'сумма='.s);end.

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

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

//Объявление целочисленного массива размером 10 эл.

//Объявление двух целочисленных переменных

//начало

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

  //Запускается цикл от 1 до 10
//Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

  //Запускается цикл от 1 до 10
//Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

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

//Запускается цикл от 1 до 10
//Если текущий элемент массива делится на 3 без остатка тогда
//к сумме прибавляется текущий элемент массива

//вывод сообщения и значение переменной

//конец