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))));

end.

функция sin() в паскале считает в радианах поэтому функцией degToRad() градусы переводим в радианы. Если формула уже в радианах то перевод не требуется.