помоги написать блок схему Опции

[тупка]

Uses Crt;

Function f(x: Double): Double;
 Begin
   f := 1 / (Exp(x * Ln(2))) - 10 + 0.5*Sqr(x)
 End;

Var
 x, Eps, a, b, c: Double;
 n: Integer;

begin
 ClrScr;
 Writeln('Введите значения a и b'); Read(a, b);
 WriteLn('Введите точность Eps'); Read(Eps);

 n := 0;
 Repeat
   c := (a + b) / 2;
   If (f(a) * f©) < 0 Then b := c
   Else a := c;
   Inc(n)
 Until (b - a) <= Eps;

 x := (a + b) / 2;
 WriteLn('Корень равен  x=', x:10:7);
 WriteLn('Количество делений = ',n);
 ReadKey
end.
нужна блок схема к этой программе, помоги прожалуйта