Решить : вывести на экран значения функций y=x^2+8x-6 на промежутке от m до n значения m и n вводятся с клавиатуры. ​

var

   m, n, x : integer;

begin

   write('введите m ');

   readln(m);

   write('введите n ');

   readln(n);

   writeln('значение функции y=x^2+8x-6 на промежутке от m до n');

   for x := m to n do writeln('x=', x, '  y=', sqr(x)+8*x-6);

end.