Информатика

Калиса

27 июня, 04:23

Программа не запускается исправьте программу

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.