Второе

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.