var i:integer; a:array[1..10000] of integer;begin for i:=1 to 10000 do a[i]:=i;end.
E-mail: info@telesys.ru