var

   a: array[1..1000] of Integer;

   n, i: Integer;

begin

   Write('Введите количество чисел: ');

   Read(n);

   {ввод массива}

   for i := 1 to n do

       Read(a[i]);

   {вывод массива}

   for i := 1 to n do

       Write(a[i], ' ')

end.