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

Question

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

---

Answer 1

var n,s : integer;

begin

readln(n);

if n <> 0 then

   begin

      s:=s+n;

      readln(n); 

   end

else writeln(s);

readln; 

end.
это программа позволяет найти сумму вводимых чисел, но если ввести ноль, то числа перестанут  запрашиваться и на экран выведеться сумма чисел, вводимых до ноля.