8 lines
97 B
ObjectPascal
8 lines
97 B
ObjectPascal
|
begin
|
|||
|
|
var s := 0;
|
|||
|
|
for var i := -3 to i do
|
|||
|
|
begin
|
|||
|
|
s += i;
|
|||
|
|
end;
|
|||
|
|
Assert(s=-3);
|
|||
|
|
end.
|