Программа на паскале Заполнить линейный массив по формуле c[i]=16*x-i/9-7

begin
  var x:=ReadInteger('x=');
  var c:=ArrGen(ReadInteger('Введите размер массива->'), i->16*x-(i+1)/9-7); c.Println;
  end.


x= 3
Введите размер массива-> 5
40.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444