Определите, есть ли в массиве числа от 3 до 7. укажите их номер.

Uses crt;
const n = 5;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
isize:=0;
for i:=1 to n do
if ((a[i]>2)and(a[i]<8)) then
writeln(i);
end.