А-
Алексей -4444444
Xi := 0; Xii := 0; { Или любое другое начальное значение для Xi и Xi-1}
repeat
X := Xi - F(Xi) * (Xi - Xii) / (F(Xi) - F(Xii)); Xii := Xi; Xi := X;
until Abs(Xi - Xii) < Eps;
WriteLn('F(', Xi:0:5, ') = ', F(Xi):0:5);