Теперь напишем программу по составленной блок-схеме.
Назовём её summa.
Объявим две переменные: s и n. Так как в условии задачи не сказано, что пользователь вводит целые числа, переменные будут принадлежать к вещественному типу real.
И далее прописываем по блок-схеме
program summa;
var s, n: real;
begin
s := 0;
repeat
readln(n);
s := s + n;
until n = 0;
writeln(s);
end.