Дан массив А(10), который вводится с клавиатуры. Все элементы, которые меньше первого элемента умножить на 2. Вывести измененный массив.нааписать пограмму на паскале

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016begin  var a:=ArrRAndom(10,1,30); a.Println;  var k:=a[0];  a:=a.Select(x->x<k?x*2:x).ToArray; a.Printlnend.Пример10 7 22 20 1 22 4 23 1 1110 14 22 20 2 22 8 23 2 11