Вычислить сумму элементов последовательности - PascalABC.NET

var
    i, n: Word;
    sum, numb: Extended;
begin
    sum := 0;
    repeat
        Write('Input n(>0): ');
        ReadLn(n);
    until (n > 0);
    for i := 1 to n do
    begin
        Write('Input number: ');
        ReadLn(numb);
        sum := sum + numb;
    end;
    WriteLn; Write('sum=', sum:0:2);
end.