С клавиатуры вводится n чисел. Найти сумму и количество трехзначных и нечетных чисел. Pascal

Var a, b, n, kol:integer; begin

writeln ('введите количество чисел') ;

readln (n) ;

kol:=0;

for a:=1 to n do begin

writeln ('введите число') ;

readln (b) ;

if (b mod 2 0) and ((b>99) and (b<1000)) then kol:=b+kol;

end;

writeln ('количество нечётных трёхзначных чисел = > ', kol) ;

end.