اجراي اين برنامه چقدر طول ميكشه؟؟

[behnam_tr]

program test;
uses wincrt;
var
i,j,k,l,p,q,w,e,r,t:byte;
f:text;
begin
assign(f,'g:\fouts.txt');
rewrite(f);
for i:=0 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
for p:=0 to 9 do
for q:=0 to 9 do
for w:=0 to 9 do
for e:=0 to 9 do
for r:=0 to 9 do
writeln(f,'960',i,j,k,l,p,q,w,e,r);


close(f);

end.

زمان اجراي اين برنامه روي سي پي يوي 3000 چقدر است؟