Составить блок-схему к программе

[locked]

Помогите пожалуйста составить блок-схему к программе:
Даны сведения о массах 60 грузов - массив а[60].
Определить самый лёгкий груз, его порядковый номер.
Сформулировать новый массив b[i] из грузов, имеющих массу менее 5 т.
Определить их суммарную массу.
Определить число грузов массива А, имеющих массу 8 т., их порядковые номера.

var a: array [1..60] of integer;
    b: array [1..60] of integer;
    i,j,s,k,imin,min: integer;
begin
writeln ('Сведения о грузах: ');
for i:=1 to 60 do
    begin
    a[i]:=random(10)+1;
    write (a[i],' ');
    if a[i]=8 then inc(k);
    end;
    writeln;
    writeln ('Найдено ',k,' грузов(a) с массой в 8 тонн');
for i:=1 to 60 do
    if a[i]=8 then
       writeln ('Груз под номером ',i);
min:=a[1];
imin:=1;
for i:=1 to 60 do
    if a[i]<min then
       begin
       min:=a[i];
       imin:=i;
       end;    
writeln;
writeln ('Самый легкий груз под номером ',imin,' весит ',min,' тонн(ы,у)');
begin
writeln ('Грузы, весом менее 5 тонн:');
j:=1;
s:=0;
for i:=1 to 60 do
    if a[i]<5 then
       begin
       b[j]:=a[i];
       s:=s+a[i];
       write (b[j],' ');
       j:=j+1;
       end;
writeln;
write ('Их суммарная масса равна ',s);
       end;      
end.

[Вадим Мошев]

www.FCEditor.com

[locked]

Сообщение от Вадим Мошев

www.FCEditor.com

ссылка не работает

[Serge_Bliznykov]

так погуглить же можно. по FCEditor


или попробуйте вот этим сервисом воспользоваться:
БЛОК-СХЕМА ОНЛАЙН