Составить программу для подсчета суммы нечетных чисел от 1 до n

Var s,i,n:integer;

begin
s:=0;
readln(n);
for i:=1 to n do  
if (i mod 2 <> 0) then   
s+=i;  
writeln(s);  
end.