Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3 (Pascal) Я написал программу,но она не работает, в чем может быть проблема? program dz2; const n=10; var a:array[1..n] of integer; var i,s:integer; s:=0; randomize: for i:=1 to n do a[i]:=random(100)+1; for i:=1 to n do writeln(a[i]); for i:=1 to n do if a[i] mod 3 = 0 then s:=s+1 writeln(s); end.

Begin забыли дописать, после инициализации переменных