Заполнить массив D, состоящий из 10 элементов случайными числами и вывести элементы на экран+ блок схема и программа

const

 n=10;

var

 D : array [1..n] of integer;

 i:integer;

begin

 randomize;

 for i:=1 to n do  

   begin

     D[i]:=random(100);

     write(D[i]:4);

   end;

end.