Сумма нечетных чисел pascal без массива и строк

const n=5;
Var
i:byte;
number:integer;
numbers:word;
Begin
// обнуляем переменные, так просят на ЕГЭ
numbers:=0;number:=0;i:=0;

// цикл от 1 до 5 (или сколько мы поставим для n)
For i:=1 to n do
begin
writeln('Введите число ');
readln(number);
if number div 2<>0 then
numbers:=numbers+number;
end;

// выводим
writeln(numbers);
End.