Напишите фрагмент кода заполнения массива А по предлагаемому правилу (массив объявлен как a:harry [-3..3]of integer):значение элемента вводятся пользователем с клавиатуры;значение элементов случайные числа из диапазона -50..50;значение каждого из элементов больше его индекса в 5 раз;массив предназначен для хранения ростов.Заполните его случайными значениями из диапазона 150..190.
var
a: array [-3..3] of integer;
i: integer;
begin
Randomize;
for i := -3 to 3 do
begin
repeat
a[i] := Random(41) + 150; // генерируем случайное число от 150 до 190
until a[i] > i * 5;
end;
// вывод значений массива на экран
for i := -3 to 3 do
begin
writeln('a[', i, '] = ', a[i]);
end;
end.