необходимо составить программу вычисления с параметром,постусловием и предусловием.циклы

[Машулечек]

Задание такое:
Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму (произведение) с использованием операторов for, while, repeat. Значение аргумента (если он есть) выберите с учетом указанного огруничения

То есть надо составить 3 программы:с параметром,предусловием и постусловием
фунуция: ln |sin(x)|
сумма или произведение: - ln 2 - сумма(внизу n=1,вверху 100) cos 2nx/n
аргумент: |x|<п, х не равен п/2

все составила,в программе выдает ошибку 113.не могли бы вы помочь мне составить программу.может быть у меня в ней где-то ошибка?учитывать учет ограничения нужно не при помощи repeat until,а при помощи безусловного перехода

[Машулечек]

Program lab_3;
Label M;
Var
S,x,y: real;
N: longint;
Begin
M:Begin
Writeln (‘x=’);
Readln (x);
If (abs(x) > pi) or (x=pi/2) then
Write (‘vvedite eche raz’);
Go to M;
Else
Begin
S:=0;
N:=1;
While n<>100 do
Begin
S:=s + cos (2*n*x)/n;
N:=n+1;
End;
Writeln (‘s=’);
Writeln (‘y=’);
End;
End.

[Яна696]

перед else точка с запятой не ставится