составить программу вычисляющуюпоследовательность значений функции y=7x^2-14/x+a, где х принадлежит промежутку от [-10,-3]

var x:array[1..8] of integer := (-10, -9, -8, -7, -6, -5, -4, -3);    i,a:integer; y:real;begin  writeln('a='); readln(a);    for i:=1 to 8 do     begin      y:=7*sqr(x[i])-14/x[i]+a;      writeln('x[',i,']= ',y);    end;end.