Olga S

Помогите составить блок - схему пожалуйста!!!

program Lab_4;
{ Programma Laboratornoy raboty N 4
Variant N 3
gr. F-177, st. O.G.Sytnik }
var
m: Array[1..50] of real;
k:real;
i,n,b,count: Integer;
Fout: text;
begin
Write('Vvedite dlinu massiva: ');
Read(n);
{kontrol n}

Assign(Fout,'file1.txt');
ReWrite(Fout);
Writeln(Fout,'Ishodnyi massiv iz ', N,' elementov');
for i := 1 to N do
begin
Write('Vvedite ',i,' element: ');
Read(m[i]);
end;
Write('Vvedite kolichestvo summiruemyh elementov: ');
Read(b);
{kontrol b}
for i := 1 to N do
if i mod 6=0 then
Writeln(Fout,m[i]:9:2)
else
Write (Fout,m[i]:9:2)
;
writeln(Fout);
i := 3;
count:=0;
while not (count = b) do
begin
if odd(i) then
begin
Inc(count);
k := k + m[i];
end;
inc(i);
end;
WriteLn(Fout,'Summa : ',k:9:2);
Close(Fout);
end.