Турбо паскаль написати програму. введіть одновимірний масив цілих чисел з n елементів. виведіть одновимірний масив з елеменнтів масиву *2

Uses crt;

const
  m = 50;

var
  a: array[1..m] of integer;
  i, n: integer;

begin
  Clrscr;
  Write('Vvedite 4islo elementov massiva: ');
  Readln(n);
  Writeln('Vvodite elementy massiva 4erez probel');
  for i := 1 to n do Read(a[i]);
  Writeln('*** Udvoennye elementy ***');
  for i := 1 to n do Write(2*a[i], ' ')
end.

Тестовое решение:

Vvedite 4islo elementov massiva: 10
Vvodite elementy massiva 4erez probel
-5 2 12 8 -6 0 14 -9 3 1
*** Udvoennye elementy ***
-10 4 24 16 -12 0 28 -18 6 2