помогите пожалуйста, ошибка 207 в паскале

[kotenok1996]

Составить алгоритм нахождения суммы положительных и произведения отрицательных значений функций y=2-3.2*sqrt(a*sqr(x)-1), где x[-0.5;20] x=0.1, а также количество ее положительных и отрицательных значений.

Program Lab4;
uses wincrt;
var x,y,a,S,P,no,np:real;
begin
S:=0;
P:=1;
np:=0;
no:=0;
x:=-0.5;
while x<=20 do begin
If sqrt(a*sqr(x)-1)>0 then x:=x+0.1 else
y:=2-3.2*sqrt(a*sqr(x)-1);
If y>=0 then
begin
np:=np+1;
S:=S+y;
end else
begin
no:=no+1;
P:=P*y end;
x:=x+0.1 end;
writeln ('S=',S,'P=',P,'np=',np,'no=',no)
end.

[Iron Monk]

А чему равен "а"?

[kotenok1996]

в задании не дано.

[p51x]

значит надо уточнить задание, вы что считаете-то? если в а у вас среднесферическое число или вообще 0?

По ошибке: включите поддержку сопроцессора или его эмуляцию, директивы в справке гляньте.