найти сумму положительных нечетных чисел, меньших n. по паскалю

program zz1;

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

begin

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

read (n);

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

begin

if i mod 2 = 1 then s:=s + i; / / проверяем, если очередное число при делении на два дает в остатке единицу, то добавляем число в сумму

end;

write (' сумма положительных нечетных чисел, меньших n = ', s); / / выводим ответ

end.