Abc Pascal помогите с элементарной программой! Выскакивает ошибка!

program rafik;

var
x, w, s, b, f, g, a: real;

begin
write('Введіть значення x=,b=,a= ');
readln(x,b,a);
f:=sqr(x) + b;
g:=sin(x + a);
s:=exp(1/2*ln(f));
w:=s - sqr(b) * exp(3 * ln(g)) / x;
write('w=', w);
end.

выбивает w=NaN

помогите!! ! срочно!!!! пожалуйста!!!