решите задачу по abc паскале

Program Name; var i,s:integer; begin for i:=100 to 150 do begin if(i mod2)>0 then s:=s+i end WriteLn('Сумма равна: s) end.