запишите программу, в которой осуществляется: заполнение случайным образом целочисленного массива а, состоящего из 10

program array_;var a: array[1..10] of integer; // объявление массива из 10 целых чиселbeginRandomize;For i: integer:= 1 to 10 dobegin// элементу а[i] присваивается случайное число в диапазоне 0..99a[i]:= random(100);write(a[i]:5) // вывод элементов массиваendend.