Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на заданном интерва

var a,b,h,x,y,f:real;//a,b-концы интервалов, h-шаг деления, x- переменная,через которую заменяется значение a, f-счётчик цикла
begin //ввод входных данных
  writeln('Введите a,b');
readln(a,b);
  writeln('Введите шаг h');
readln(h);
    x:=a; f:=0;
repeat // нахождение первого отрицательного значения функции
  y:=x-sin(x);
    if y<0 then f:=f+1;
  x:=x+h;
    if y>0 then begin
                writeln('на данном промежутке отсутствуют отрицательные значения');
                readln();
                end;
until f=1;
  writeln('первое отрицательное значение функции =',y:4:3);
  readln();
end.

    if y > 0 then begin
      writeln('на данном промежутке отсутствуют отрицательные значения');
      readln();
    end;

var
  a, b, h, x, y: real; //a,b-концы интервалов, h-шаг деления, x- переменная,через которую заменяется значение a, f-счётчик цикла
  f: boolean;
 
begin //ввод входных данных
  writeln('Введите a, b');
  readln(a, b);
  writeln('Введите шаг h');
  readln(h);
  x := a; f := false;
  repeat // нахождение первого отрицательного значения функции
    y := x - sin(x);
    if y < 0 then begin
      f := true;
      break;
    end;
    x := x + h;
  until x >= b;
  if f then writeln('первое отрицательное значение функции =', y:4:3)
  else writeln('на данном промежутке отсутствуют отрицательные значения');
  readln();
end.

var
  a, b, h, x, y: real;//a,b-концы интервалов, h-шаг деления, x- переменная,через которую заменяется значение a, f-счётчик цикла
 
begin//ввод входных данных
  writeln('Введите a, b');
  readln(a, b);
  writeln('Введите шаг h');
  readln(h);
  x := a;
  repeat // нахождение первого отрицательного значения функции
    y := x - sin(x);
    x := x + h;
  until (x >= b) or (y < 0);
  if y < 0 then writeln('первое отрицательное значение функции =', y:4:3)
  else writeln('на данном промежутке отсутствуют отрицательные значения');
  readln();
end.