begin
  var s := 0; 
  for var i := -3 to i do
  begin
    s += i;
  end;
  Assert(s=-3);
end.