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

Question

Пожалуйста помогите!!!
Написать в тетради программу нахождения арифметического выражения по правилам языка программирования:
((a+b)**2/(1+a/(ba^2-√b))

Answer 1

Var
   a,b:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('(a+b)*2/(1+a/(ba^2-√b)) = ',(a+b)*2/(1+a/(b*a*a-Sqrt(b))))
End.

Answer 2

Выражение на паскале:
(a+b)*2/(1+a/(b*a*a-sqrt(b)))