(Паскаль)!! Составить программу

Question

(Паскаль)!! Составить программу

---

Answer 1

Program pr;
Uses Crt;

Var
x,y:real;

Begin
writeln('Введите x');
readln(x);

if (x>0) then y:=x+1
else    
    if (x<0) then y:=x+3*x-4      <br>         else y:=Cos(x)-1;      

writeln('y=',y);

readln;
end.