3. В массиве из 10 целых чисел определить, сколько значений
превышает число 3. собственно сама программа
Const n=10;
var
a:array[1..n] of integer;
kol,i:integer;
begin
kol:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>3 then kol:=kol+1;
end;
writeln;
writeln('больших,чем 3=',kol);
end.
и далее при запуске программы выдает ошибку 201 не подскажите в чем ошибка?

//забыл точку с запятой у begin в циклеConst n=10;var ar:array[1..n] of integer;kol,i:integer;begin;kol:=0;for i:=1 to n dobegin;readln(ar[i]);if ar[i]>3 then kol:=kol+1;end;writeln;writeln('больших,чем 3=',kol);end.{по крайней мере, у меня данная программа компилируется без проблем. Никакого выхода за границы массива( это и есть, вроде бы, ошибка 201)}