Найти сумму трёхзначных чисел,сумма цифр которых число нечетное.сколько чисел вошло в сумму?

Var
i,n,c:integer;
begin
for i:=100 to 999 do
if i mod 2 <> 0 then begin
n:=n+i;
c:=c+1;
end;
writeln('Сумма цифр:',n);
write('Вошло в сумму:',c,' чисел');
end.

я не очень понел твой вопрос но я думаю что мой ответ правельный