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

Var
  s, n: real;

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