Вчем ошибка var a,y: integer; begin write('введите любое число'); readln(a); lf a then y: =a*a+1/sqrt(a*a+1); write(y); end.

Lf a then - во-первых, тут видимо if хотели написать, а во-вторых между if и then должно следовать выражение логического типа, а у Вас указана переменная целого типа.