PASCALABC.NET
begin
var x := ReadReal('x =');
var y: real;
if x < 0 then
y := Sin(x)
else if x <= 1 then
y := x ** 3
else
y := x * x - Cos(x);
Print('Y =', y)
end.
var x, y: real;
begin
readln(x);
if x < 0 then y:= sin(x) else
if x <= 1 then y:= x * x * x else
if x > 1 then y:= x * x - cos(x);
writeln(y)
end.
