Сумма нечётных натуральных чисел

[grev_4]

Здравствуйте!

Подскажите, верно ли решение задачи: "Определить сумму нечетных натуральных чисел не превосходящих n"? Если нет, то подскажите, пожалуйста, в чём ошибка.

program summanechetnih;
uses crt;
var
i,s,n:integer;
begin
write('Введите число n: ');
readln(n);
s:=0;
for i:=1 to n do
if odd(i) then
inc(s,i);
writeln(s);
end.

Заранее благодарен!

[Serge_Bliznykov]

на мой взгляд - всё правильно.

[Pascal.t]

Она то вроде правильна, но если взять числа большие, (например 200000)
она будет долго работать, если присмотрется здесь арифметическая прогрессия

var
i,j,k,s,n:longint;
begin
readln(n);
s:=(1+n-abs(n mod 2-1))*(n div 2+n mod 2)div 2;
writeln(s);
end.

[dosha]

попробуй s:=s+i

[grev_4]

Всем спасибо!