Begin
  var y, x, xn, xk, xd, a, b: double;
  var i: integer;
  
  write('Vvedite cherez probel Xn, Xk, Xd, A, B: ');
  readln(xn, xk, xd, a, b);
  
  x := xn;
  
  repeat 
  begin
    if (x-a) < 0 then
      y := 0
    else
      y := sin(x - b) - sqrt(x - a);
      
    writeln('Y = ', y:8:3,'    X = ', x:3:1);
    
    x := x + xd;
  end;
  until(x > xk)
End.