Не пойму зачем не работает?!

[Jone200991]

Задание:Вычислить значения функций,если диапозон изменения аргумента и его шаг заданы. Выч-ть сумму значений функции, радианная мера которых больше 1.Ну там дальше идёт ур-ие.Если надо напишу!


Programm №3;
Uses crt;
Const a=2.1;
Var XR,b,c,h,x,y,P:real;
Begin
Clrscr
Write(‘Введите интервал и шаг’); readln(b,c,h);
P:=1;
Writeln(‘Таблица значений’);
Writeln(‘x(гр) (x рад) y’);
X:=b;
While x<=c do begin
XR:=(x*pi)/180;
Y:=1-(tg*((sqr(XR)+2*a)/sqrt(XR+sqr(a))));
Writeln(x:5:0),’’,XR:5:2,’’,Y:6:2);
If (y>0) and (y<1) then P:P*y;
X:=x+n;
End;
Writeln(‘Произведение=’,P:7:2);
Read key;
end.