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

program zz1;

var a, k, n, i, s:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество чисел

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим число

if (a > 99) and (a < 1000) and (a mod 2 = 1) then begin k:=k + 1; s:=s + a; end; / / проверяем, если число трехзначное и нечетное, то считаем его и добавляем в сумму

end;

write (' количество трехзначных и нечетных = ', k, ' их сумма = ', s); / / выводим ответ

end.