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.
ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...
Без массива:
Program n_1;
var a, b, i, n: integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n);
if n mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
С массивом:
Program n_1;
var a, b, i: integer; n: array [1..15] of integer;
begin
a:=0; b:=0;
for i:=1 to 15 do begin
read(n[i]);
if n[i] mod 2 = 1 then a:=a+1
else b:=b+1;
end;
if a>b then writeln('Нечетных чисел больше, чем четных')
else writeln('Четных чисел больше, чем нечетных');
end.
Но честно, не вижу смысла использовать массив.
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.