блок-схема

[gest]

Помогите плз написать блок-схему по алгаритму:

program metodkasat;
uses crt;
const eps=0.0042;
function f(x:real):real;
begin
f:=9.23*ln(x+8.67)-55.03;{function}
end;
function df(x:real):real;
begin
df:=9.23/(x+8.67);{df/dx}
end;
function d2f(x:real):real;
begin
d2f:=-9.23/sqr(x+8.67);{vtor proizv}
end;
var a,b,x:real;
begin
clrscr;
writeln;
writeln('Metod kasat:');
writeln(‘vvedite interval[a-b]);
readln(a);
readln(b);
{a:=-4.33;
b:=-8.66;}
if f(a)*df(a)>0 then x:=a else x:=b;
while abs(f(x))>eps do
x:=x-f(x)/df(x);
writeln('x=',x:6:4);
end.

[ROMA2PVT]

Добавь после начала блок описания переменных только.

[ROMA2PVT]

да и начало функции вот так оформи.

[gest]

Спасибо большое