Только пробел между const и a надо поставить
<span>const a:array[1..3]of integer=(12,7,58);
тогда правильно </span>
const N=30;
var a : array [1..N] of longint;
i, j, p:longint;
begin
for i:=1 to N do readln(a[i]);
{...}
p:=1;
for i:=1 to N do
if A[i] div 10 <> 0 then
if A[i] mod 6 <> 0 then p:=p*A[i];
writeln('Произведение двухзначных элементов массива, которые не делятся на 6 = ',p);
<span>end. </span>
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var a:=ArrRandom(30,-100,100).Println;
writeln('положительные числа кратные 5:');
a.Where(x->(x mod 5=0) and (x>0)).Println;
end.
#include
void main
{
for (int i=200;i>50;i=i-1)
printf(%i,i);
}
Держи.еще можно через строки сделать,но я так думаю у тебя её не приняли бы