Надо найдите значение функции у=sin (x-9)+2x

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x = ');
  Writeln('y=',Sin(x-9)+2*x)
end.

Var x:real;
Begin
Write('x = ');ReadLn(x);
WriteLn('f(',x,') = ',Sin(x-9)+2*x);
End.