Блок схема программы

[vadiprog]

Вот написал программку, а теперь надо блок-схему к ней... Поможете?

var S,x,z:real;
n:longint;
const T=0.0005;
begin
write('Znachennia x=');
readln(x);
if (x<=0) or (x>1) then writeln ('Lushe vid 0 do 1')
else
begin
writeln('Tochnost=', T:4:4);
n:=1;
z:=(exp(n*ln(x))*cos(n)*(pi/3))/n;
S:=(exp(n*ln(x))*cos(n)*(pi/3))/n;
writeln('1 chlen=',z:10:10);
writeln('2 chlen=',(exp(n*ln(x))*cos(n)*(pi/3))/n:15:15);
while (abs(z)>=T) do
begin
inc(n);
z:=(exp(n*ln(x))*cos(n)*(pi/3))/n;
if (n mod 2=1) then
S:=S+z
else
S:=S-z;
end;
writeln('Suma riadu=',S:10:10);
writeln('Kilkist chleniv=', n-1);
end;
readln;
end.

[Dush]

обычно наоборот делают