david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
11 lines
178 B
ObjectPascal
11 lines
178 B
ObjectPascal
var
|
|
A: array[1..1000] of integer;
|
|
i: Integer;
|
|
begin
|
|
for i := 1 to 1000 do
|
|
A[i] := i;
|
|
Result := 1;
|
|
for i := 1 to 1000 do
|
|
Result := Result + A[i];
|
|
end;
|