Помогите поправить ошибку в pascal Program one;Var x,y,m,n:real;BeginWriteln (введите

1) в 4 и 6 строчках поменять кавычки на одинарные (те которые там где русская буковка Э. PascalABC иные не разумеет, другие паскали тоже могут ругаться.

2) строчка 8 оператор FOR требует перечисляемый тип например integer, так что чтоб все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)

3) в десятой строке исправить заглавие функции возведения в квадрат на sqr

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

5) не понятно для чего употребляется цикл если будет выведено только последнее вычисленное значение. Вероятно в цикле пропущен блок BEGIN END;

исправленная програма будет смотреться примерно так:

Program one;

Var y : real;

   x, n, m : integer;

Begin

   Write('введите число m ');

   Readln(m);

   Write('введите число n ');

   Readln(n);

   For x := m to n do begin

       y := sin(degToRad(4*sqr(x)));

       Writeln(y);

   end;

End.

ну и плюс поправил отступы и стилистические оплошности не действующие на итог...

Переменные x,m,n должны быть типа integer

Var  

y:real;

x,m,n: integer;

Begin

Writeln ('введите число');

Readln (m);

Writeln ('введите число');

Readln (n);

For x:=m to n do

y:=sin(4*sqr(x));

Writeln (y);

End.