1)-вывести на экран значение функций y=sin(4x^2) на промежутке от m до

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.