Всем привет. Мой вопрос заключается в задаче на массив. На промежутке от A и B…

program nfcdjcfi; uses crt; var e: array [1… 100] of integer; i,a,b,kolvo: integer; beginclrscr; kolvo: =0; readln (a,b); for i: =a to b doif e[i] mod 2=0 then kolve: =kolvo+1; writeln (kolvo); readln; end.