Программа не запускается исправьте программу
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.