Вычеслить значение y=nsinx-cosnx если x изменяется от x0 до xk с шагом h

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

begin
  var (x0,xk,h):=ReadReal3('Введите x0,xK,h:');
  var n:=ReadInteger('n=');
  var x:=x0;
  while x<=xK+h/100 do begin
    Writeln(x:15:10, n*Sin(x)-Cos(n*x):15:10);
    x+=h
    end
end.