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

Var
    number: integer;
    sum: integer;

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