Обусловь способ наполнения массива. for i := 1 to 4 do

Определи метод наполнения массива.
for i := 1 to 4 do read(a[i]);
1 с помощью оператора присваивания (по формуле)
2 ввод каждого значения с клавиатуры
3 с поддержкою оператора присваивания (случайными числами)