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

Question

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

---

Answer 1

Var i,s:integer;
begin
s:=0;
for i:=107 to 115 do
s:=s+i;
write ('s= ',s);
end.          
блок-схема во вложении

---

Answer 2

В Qbasic.
CLS
DIM A(9)
M=107
FOR I=1 TO 9
A(I)=M : M=M+1: S=S+A(I)
NEXT I
? S