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

Program Massiv;

Var a: Array [1 ... 3] of Integer;

i: Integer;

Begin

WriteLn ('Напишите 3 числа через пробел');

For i : = 1 To 3 DoRead (a[i]);

For i : = 1 To 3 DoWriteLn (a[i]);

ReadLn;

End.