исправить ошибки

[dragun4ik]

Вычислить указанное число М значений функции из диапазона значений аргумента от А до В. Ввод данных производится с клавиатуры.
А=Pi/2 B=Pi M=20
Я пробывал сам но в итоге ниче не получается

program p4;
uses crt;
var a,b,x,M:real;
F:BYTE;
begin
writeln('BBECTI KOLLI4ECTBO 3NA4ENII FUNKCII');
READLN(M);
WRITELN('BBEDITE NA4ALNOE 3NA4ENIE FUNKCII');
READLN(A);
WRITELN('BBEDITE KONE4NOE 3NA4ENIE FUNKCII');
READLN(B);
X:=A;
CLRSCR;
FOR F:=1 TO M DO
BEGIN
Y:=SIN(X/2)/COS(X/2)+COSX;
WRITELN('X=',X:1:2,'Y:=',Y:4:2)
X:=X-(A-B)/M;
END;
END.

[Greblin]

X:=X-(A-B)/M;

А минус-то почему?

X:=X+(A-B)/M;

[dragun4ik]

исправил но ошибку пишет где Do (39 ошибка)

[Greblin]

Сообщение об ошибке напишите, я не помню все номера ошибок во всех компиляторах паскаля.
Только сначала замените тип f с byte на integer, возможно из-за этого

[dragun4ik]

ordinal expression expected

[Serge_Bliznykov]

for в Pascal может быть только по ЦЕЛЫМ (перечисляемым) числам... а у Вас M - вещественное..
сделайте M : integer

[dragun4ik]

Спасибо за помощь