Турбо паскаль написати програму. Введіть одновимірний масив цілих чисел з 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