Даны y и x. Вычислить a и b по формулам:

Program formula_1;

Var a,b,x,y : real;

Begin

Write('Enter X: ');

ReadLn(x);

Write('Enter Y: ');

ReadLn(y);

a := sin(sqr(x)/sqrt(5))/cos(sqr(x)/sqrt(5));

WriteLn('A=',a:2:4);

If (a <> 0) and (y<>0)

Then

Begin

If y > 0 Then b := (cos(2*y)/sin(2*y))*sin(abs(x))+((exp(a*ln(y)))/(sqrt(abs(a))))

Else b := (cos(2*y)/sin(2*y))*sin(abs(x))+(((-1)*exp(a*ln(abs(y))))/(sqrt(abs(a))));

WriteLn('B=',b:2:4);

End

Else

Begin

WriteLn('B is not defined');

End;

ReadLn;

End.