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.
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.