Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
Алгоритмы c ветвлениями.
Форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность шагов
1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)