найти сумму положительных нечетных чисел,наименьших 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.