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

Вы условие задачи своей напишите

Составить программу вычисления значения функции у=a*a+1/a*a+1  и все в корне после деления б при любом значении а.

Что в числителе и в знаменателе дроби?

Числитель a*a+1 или только 1 ?

И непонятно, зачем у Ваc там if была попытка написать?

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