Дан массив из 10 элементов. Найдите количество элементов, больших 3, но меньших 10.

А можете, пожалуйста, всю программу написать? Полностью.

program prog;const N=10;var a : array [1..N] of integer; i : integer;begin p:=1;for i:=1 to 10 do if (a[i] > 3) and (a[i] < 10) then p:=p+1;end.

Спасибо!!)

program prog;const N=10;vara : array [1..N] of integer;i, p : integer;beginrandomize; for i:=1 to N do a[i]:=random(100);for i:=1 to N do write(a[i]:4) ; p:=0;for i:=1 to 10 doif (a[i] > 3) and (a[i] < 10) thenp:=p+1;writeln;write(p)end.

Основа, думаю такая должна быть >.>p:=1;for i:=1 to 10 do  if (a[i] > 3) and (a[i] < 10) then  p:=p+1;