PascalABC.NET

begin

 var m: integer;

 for var i := 3 to 17 do

   if i.IsOdd then m+=i;

 print('Сумма =', m)

end.