9 lines
162 B
ObjectPascal
9 lines
162 B
ObjectPascal
|
begin
|
|||
|
|
var s := Lst(1..10);
|
|||
|
|
Milliseconds;
|
|||
|
|
var n := 100000000;
|
|||
|
|
MillisecondsDelta.Println;
|
|||
|
|
loop n do
|
|||
|
|
s[0:10] := s;
|
|||
|
|
MillisecondsDelta.Println;
|
|||
|
|
end.
|