Question

ПОМОГИТЕ СОСТАВИТЬ ВЫЧИСЛЕНИЕ В PASCAL:
РАЗВЕТВЛЯЮЩИЙСЯ ВЫЧИСЛИТЕЛЬНЫЙ ПРОЦЕСС
Составить программу вычисления функции на языке PASCAL:

Answer 1

// PascalABC.NET 3.6.3

begin

 var x := ReadReal;

 var y := if x >= -1 then Sqrt(x + 4)

   else if x < -4 then 2 * x + 5

   else 3 * x;

 Print(y)  

end.