Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then<br> begin
if x<-1 then y:=3*x<br> else if x<1 then y:=sin(x)-cos(x)<br> else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
end.