Question

Теперь напишем программу по составленной блок-схеме.
Назовём её summa.
Объявим две переменные: s и n. Так как в условии задачи не сказано, что пользователь вводит целые числа, переменные будут принадлежать к вещественному типу real.
И далее прописываем по блок-схеме
​

Answer 1

program summa;

var s, n: real;

begin

   s := 0;

   repeat

       readln(n);

       s := s + n;

   until n = 0;

   writeln(s);

end.