Наша училка не умеет объяснять

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.