Безотлагательно!!!!! для к.р. на завтра .Сформировать массив из 25 случайных чисел

var a,b,c:array[1..100] of integer;

i,n:integer;

begin

     n:=1;

     for i:=1 to 25 do

     begin

          a[i]:=random(20)+100;

          write(a[i],' ');

          if (i gt; 14) and (i lt;21) then n:=n*a[i];

     end;

     writeln;

     write('Произведение=',n); writeln;

end.