Решите плиииз 4 задачу!!!!!!!!!!!!!

Question

Решите плиииз 4 задачу!!!!!!!!!!!!!

---

Answer 1

Var
s,i:integer;

begin
s:=0;

For i:= 10 to 250 do
  if i mod 2 = 0 then s:=s+i;
WriteLn(s);
end.