Найти все четные числа в промежутки числовой последовательности от А до В. Значения А и В вводятся с клавиатуры — Pascal(Паскаль)

program _;
var
c:array[1..100] of integer;
a,b,i:integer;
begin
writeln('введите а и b');
readln(a,b);
writeln('введите числа входящие в последовательность (от a до b)')
for i:=a to b do
begin
read(c[i]);
end;
writeln('Все четные числа:');
for i:=a to b do
if not odd(c[i]) then write(c[i],'  ');
end.