Паскаль. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается.

Var
    number: integer;
    sum: integer;

begin
    repeat
        write('number = ');
        readln(number);
        
        sum := sum + number;
    until number = 1;
    
    writeln('Сумма = ', sum);
end.