PascalABC.NET
begin
var m: integer;
for var i := 3 to 17 do
if i.IsOdd then m+=i;
print('Сумма =', m)
end.
