Нужно решить через программу pascalabc

PascalABC.NET

begin

 var x := ReadReal;

 var y: real;

 if x <= -3.5 then

   y := Cos(x) / (Abs(x) + 10)

 else if x < 4 then

   y := 0.5 * Exp(0.1 * x)

 else if x < 7 then

   y := Log10(1.5 * x)

 else

   y := Sqr(Sqr(Sin(x)));

 Print(y)

end.