паскаль и алгебра, помогите плиз привести в нужный язык Опции

[candy888]

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

Код

Program chast1;
var a,b,y:real;
begin
Write('Введите b=');
Readln (b);
a:=(ln(ln(b)+b))/ln(10);
y:=(1/(Pi*(Sqr(a)+Sqr(b))))*((3*sin(Sqr(a)+Sqr(b)))*sin((Sqr(a)+Sqr(b))+2*((Sqr(a)+Sqr(b)))));
Writeln('a=',a);
Writeln ('y=',y);
end.

[IUnknown]

((3*sin(Sqr(a)+Sqr(b)))*sin((Sqr(a)+Sqr(b))

Откуда взялось выделенное красным? Этого не было на картинке. А вот квадратный корень - был, а у тебя он отсутствует.

Вообще, лучше бы упростить выражение: введи еще одну переменную, скажем Z = A² + B², и все сразу станет гораздо проще:

a:=(ln(ln(b)+b))/ln(10);
z := sqr(a) + sqr(b);
y:=(1 / (Pi * Sqrt(z)) * sin(z) * sqr(sin(z));
Writeln('a=',a);
Writeln ('y=',y);