программа не запускается исправьте программу
program lab1;
Var
x,a,nx:integer; y:real;
begin
write ('Введите x: ');
read(x);
write ('Введите a: ');
read(a);
write ('Введите nx: ');
read(nx);
If a<1 then
y:=sqr(nx)-7/(sqr(x));
If a=1 then
y:=a*x*sqr(a*x)+sqrt7(x);

If a>1 then
y:=ln(x+7)*(sqrt(x+a));

write('Y = ',y);

End.

y:=a*x*sqr(a*x)+sqrt7(x); - что такое sqrt7(x)? Есть функция sqrt(x), sqrt7 нет. Уберите семёрку.