12 lines
163 B
ObjectPascal
12 lines
163 B
ObjectPascal
|
function Sum(a,b: integer): integer;
|
|||
|
|
begin
|
|||
|
|
var Sum := 0;
|
|||
|
|
for var i:=a to b do
|
|||
|
|
begin
|
|||
|
|
Sum := Sum + i;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Assert(Sum(1,10)=0);
|
|||
|
|
end.
|