begin
  var n := ReadInteger('Введите количество элементов массива');
  
  //первый вариант, динамический массив
  var a := ReadArrInteger($'Введите {n} элементов массива A:',n);
  Write('Вывод элементов массива A: ');
  a.Println;
  
  //второй вариант, динамический массив
  var b := new integer[n];
  Write($'Введите {n} элементов массива B: ');
  for var i := 0 to b.High do
    read(b[i]);
  Write('Вывод элементов массива B: ');
  for var i := 0 to b.High do
    Write(b[i], ' ');
  
  Writeln;
  
  //третий вариант, статический массив
  var c: array[1..10] of integer;
  Write($'Введите {n} элементов массива C: ');
  for var i := 1 to n do
    read(c[i]);
  Write('Вывод элементов массива C: ');
  for var i := 1 to n do
    Write(c[i], ' ')
end.