программа которая выводит удвоенные значения элементов массива, размерностью N

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  a.Select(x->2*x).Printlnend.Тестовое решениеn= 10-52 -23 48 -54 -72 -36 -87 -46 -21 54-104 -46 96 -108 -144 -72 -174 -92 -42 108Длинный "школьный" вариант// PascalABC.NET 3.1, сборка 1239 от 08.05.2016const  nn=100;var  i,n:integer;  a:array[1..nn] of integer;begin  Write('n='); Read(n);  Randomize;  for i:=1 to n do begin    a[i]:=Random(200)-100;    Write(a[i],' ')    end;  Writeln;  for i:=1 to n do Write(a[i]*2,' ');  Writelnend.