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

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.