begin
var n := ReadInteger();
var sum := 0;
for var i := 1 to n do
if i mod 2 = 1 then
sum += i;
Write(sum)
end.
Объяснение:
PascalABC.NET
