// Демонстрация функции Milliseconds
uses Utils;
const n = 5000;
var a: array [1..n,1..n] of real;
begin
for var i:=1 to n do
for var j:=1 to n do
a[i,j] := 1;
writeln(Milliseconds/1000);
end.
