Найти сумму положительных четных чисел, больших 150 и меньших 200 pascal

сумма понятие у тебя ошибка сумму невозможно найти!!!!!!!!!!!!!!!

var i,s:integer; begin s:=0; for i:=150 to 200 do if i mod 2=0 then s:=s+i; writeln(s); end.