Наисуйте плиз блок-схему

[Deis]

вот сама прога

begin
clrscr;
for [0]:=5 to 9 do
for [1]:=0 to 9 do
for [2]:=0 to 9 do
for [3]:=0 to 9 do
for [4]:=0 to 9 do
for [5]:=1 to 1 do
for [6]:=0 to 9 do
for [7]:=0 to 9 do
for [8]:=0 to 9 do
begin
sitec:=a[0]*10000+a[1]1000+a[2]*100+a[3]*10+a[4];
platie:=a[5]*100000+a[6]*10000+a[7]*1000+a[2]*100+a[8]*10+a[3];
if (sitec*2=platie) then
begin
r:=0;
for i:=0 to 8 do
for j:=i+1 to 8 do
if (a[i]=a[j]) then inc(r);
if (r=0) then
writeln (sitec,'+',sitec,'=',platie);
end;
end;
writeln('Nazhmite ENTER');
redaln;
end.

[Chudo4258]

Нарисуйте с помощью FCEditor или BS 1.0.

[Deis]

Спасибо за проги