Помогите F=(A+B)^2/A-1

Program hj;var a,b,F:real;beginreadln(a,b);F:=(sqr(a+b))/(a-1);writeln(F);end.