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

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