вычеслить значение 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    endend.