Вычисление значения выражения Pascal

[kvkvk]

помогите разобраться что не так

Program INFORM;
var a,b: real;
begin
  writeln('Vvedite a;b');
  readln(a,b);
  writeln x = exp(abs(a+1)*ln(abs(b+1)))+ exp-(abs(cos(a)+sqrt(abs(b))))/ exp(0.6*ln(abs(ln(abs(a)+abs(b)+1.5)/ln(10)))))+exp(4*ln(a+b));
  writeln y = abs(a-b)*cos(a+b)- a/(sqrt(abs(a+b)+1.2)) / abs(x)*exp(-x)+ sqrt(Exp-(Abs(a))+1.5); 
  readln;
end.

вот сами формулы01.jpg.

[kvkvk]

Помогите пожалуйста!

[Mad_Cat]

Program INFORM;
var a,b,x,y: real;
begin
  writeln('Vvedite a;b');
  readln(a,b);
  x:= exp(abs(a+1)*ln(abs(b+1)))+ exp(-abs(cos(a)+sqrt(abs(b))))/ exp(0.6*ln(abs(ln(abs(a)+abs(b)+1.5)/ln(10))))+exp(4*ln(a+b));
  y:= abs(a-b)*cos(a+b)- a/(sqrt(abs(a+b)+1.2)) / abs(x)*exp(-x)+ sqrt(Exp(-Abs(a))+1.5);
  Writeln(x:6:3,' ',y:6:3);
  readln;
end.

Vvedite a;b
2 3
689.304 1.562

если не сложно подскажите что не так?)

Формулы проверяй

[kvkvk]

ага теперь работает, спасибо большое, только с контрольным расчетом не сходится,
там а=1, и b=0, а значения x,y соответственно равны 1,639421308, -0,079469002
если не сложно подскажите что не так?)

[kvkvk]

Формулы проверяй

этим и занимаюсь(

[kvkvk]

Урааа!!! сделал фишка была в том, что скобок не хватало там нужно было весь числитель поделить на весь знаменатель)))) всем спс тему можно удалить)