При любых значениях выдает один и тот же ответ , найти ошибку

program z2;

var q,s,n,x,y,m,w,a,b,c: real;

begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x : = c+sqrt(a)*sin(sqrt(c));

y : = sin(3*b)*cos(3*b);

s : = sqrt(a-x/y);

m : = ln(1+sin(a));

w : = sqrt((b+c)/(a*a-1))+(a/(c*b)); //error x2

n : = sqrt(b+(m/w));

q : = sqrt((3+s)/(8-n)); //error x4

writeln(q);

end.

объяснение:

комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать

ответ:

program z2;

var q,s,n,x,y,m,w,a,b,c: real;

begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x: =c+sqrt(a)*sin(sqrt(c));

y: =sin(3*b)*cos(3*b);

s: = sqrt(a-(x/y));

m : = ln(1+sin(a));

w: = sqrt((b+c)/(a*a-1))+(a/(c*b));

n: = sqrt(b+(m/w));

q: =sqrt((3+s)/(8-n));

writeln(q);

end.