Сделать программу на паскале
17. Заполнить линейный массив по формуле : n[ i]=12x-i/7x+1.

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!begin  var mas:= new real[20]; var x:=readinteger('x=');  for var i:=1 to 20-1 do  mas[i]:=12*x-i/7*x+1;  mas.Select(t->round(t*100)/100).Println;;end.

//PascalABC.NET//Версия 3.3, сборка 1611 beginvar a:= new real[15];write('x=');var x:=ReadReal();a.Fill(i->12*x-i/7*x+1);a.Println();end.