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

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