Program v6;Var x,y:real;Beginwriteln('x');readln(x);if x меньше 0 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1));if x больше =0 then y:=x*x+4*cos(x);writeln('y = ',y);end. x1=-0,9 ; 0 x2= 7; 0,5 Программа "Розгалуження" пиш...

Program v6; Var x,y:real; Begin writeln('x'); readln(x); if x<0 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1)); if x>=0 then y:=x*x+4*cos(x); writeln('y = ',y); end. x1=-0,9 ; 0 x2= 7; 0,5 Программа "Розгалуження" пишу в turbo pascal вот такую программу и выдает ошибку ( Ошибка выполнения 106 по адресу 0000:0049. )