Question

С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел

Answer 1

Var
  s, n: real;

begin
  s := 0;
  n := 0;
  repeat
    s := s + n;
    readln(n);
  until n = 3;
  writeln(s);
end.