Численные методы

нахождение корней уравнения методом сканирования
PROGRAM SCAN;
CONST N=100; X1=…(Меньшее значение);X2=…(Большее значение);
VAR I:INTEGER; H,X:REAL;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=…(Функция);
END;
BEGIN
X:=X1;
H:=(X2-X1)/N;
FOR I:=1 TO N DO BEGIN
IF F(X)*F(X+H)<=0 THEN WRITELN(X);
X:=X+H;
END;
END.