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

Var   a,b:real;BeginWrite('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.