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

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

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.