Составить программу, вычисляющую значение функции y

Var  x,y: real;Beginwriteln('Введите x: ');readln(x);y:=5*sqr(x)*x*sqrt(1/sqr(x)+1/sqr(x)*x);writeln('y = ',y);end.