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