Y=(a^2+1)/sqrt(a^2+1) ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЬ
Var x, y:real; Begin Readln(x) ; Y:=(sqr(a) +1)/sqrt(sqr(a)+1) Write(y); End.