Сформируйте одномерный массив из 3 элементов (значения элементов укажет пользователь с клавиатуры). Выведите значения одномерного массива в столбец

var

i : integer; / / объявляем переменную целочисленного типа.

arr : array [1 ... 3] of integer; / / объявляем массив.

Begin

writeln ('Введите элементы массива:'); / / вывод строки на экран.

read (arr[1], arr[2], arr[3]); / / считываем, введенные с клавиатуры значения эл-тов массива.

for i : = 1 to 3 do / / начало цикла.

begin

writeln (arr[i]); / / вывод на экран в столбец значения элементов массива.

end;

End.