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

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