9. Вычислить значение выражения:(Паскаль пожалуйста):))))))))

Question

9. Вычислить значение выражения:(Паскаль пожалуйста):))))))))

---

Answer 1

Var
 x,y:real;
begin
 readln(x);
 if x<-3 then y:=-2*x+15;<br> if (x>-3) and (x<2) then y:=2*cos(x)*sin(x);<br> if x>2 then y:=log10(x+4); 
writeln(y);
end.