Program_declar

Program program2_23;
const
        a=-2.7; b=-0.27;
        label m1;
var x: real;
z: real;
begin
writeln ('введите x');
read(x);
if x<0 then begin
writeln ('Ошибка');
goto m1;
end;
    if x<2.3  then  z:=(a+b)/(exp(x)+cos(x))
                       else if  x<5 then z:=(a+b)/(x+1)
                                    else if  x<=7 then
                                                      z:=exp(x)+sin(x);

         writeln ('z=',z:10:3);
         m1:end.