Сформируйте одномерный массив из 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.