1)-вывести на экран значение функций y=sin(4x^2) на промежутке от m до n.
2)-вывести на экран значения функций 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=sin(4x^2) на промежутке от m до n');

   for x := m to n do writeln('x=', x, '  y=', sin(degToRad(4*sqr(x))));

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

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

end.