Помогите пожалуйста!!!!!!!!!!!!Cоставить блок схему для нахождения суммы 10 вводимых чисел

(Блок-схема во вложении)

var a,k,c:integer;

begin

c:=0;

for k:=1 to 10 do begin

read(a); c:=c+a; end;

end.