<em>8,3,11,6,1,9,4</em>
<em>Чтобы подняться на 8 на первом нажимаем в верх на 8 вниз на 3 верх на 11 вниз на 6 вниз на 1 верх и на 9 вниз.</em>
В ходе построение логически функции нужно по заданный таб
Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then
begin
if x<-1 then y:=3*x
else if x<1 then y:=sin(x)-cos(x)
else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
<span>end.</span>