При ! ! составить программу для введения и суммирования чисел, пока сумма не станет больше 1000.

Var sum, number : integer;begin  sum := 0;    repeat    write('Введите число: ');    readln(number);    sum := sum + number;  until (sum > 1000);    writeln('Сумма чисел: '+sum);end.