Запишите ** языке Паскаль программу, соответствующую приведённой ниже блок-схеме и...

Question

Запишите на языке Паскаль программу, соответствующую приведённой ниже блок-схеме и определить, что вычисляет данная программа:

---

Answer 1

Var  S, N: integer;
begin 
read(n); 
S := 0; 
while n <> 0 do  
begin 
S := S + n; 
read (n); 
end; 
write(S);
end.

Считает сумму n.