Блок-схема,цикл Знайти суму перших десяти парних чисел

там листни чуть ниже, рис 113 это и будет блок схема

ау

ой 1. 11

program one;var i, n: integer;begini:=0;n:=10;while n <> 0 dobegininc(i, n);dec(n);end;write('Сумма первых 10 чисел = ', i); end.