Вводить положительные числа до тех пор, пока сумма их произведений не станет больше 10000 - Pascal ABC

Формулировка задачи:

Вводить положительные числа в переменные a и b до тех пор, пока сумма произведений вводимых чисел не станет больше 10000. помогите, сделайте на уровне 11 класса.

Решение задачи: «Вводить положительные числа до тех пор, пока сумма их произведений не станет больше 10000»

Листинг программы

program rsjer;
uses 
  CRT;
var
  a, b, sum: Integer;
begin
  sum := 0;
  repeat
    write('vvedite a= ');
    readln(a);
    write('vvedite b= ');
    readln(b);
    sum:= sum + a*b;
  until ((a<0) or (b<0) or (sum > 10000));
  if (sum < 10000) then
    writeln('bilo vvedeno otritsatelnoe chislo')
  else
    writeln('summa = ', sum);
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных a, b и sum типа Integer.
Переменная sum инициализируется значением 0.
Запускается цикл repeat, который будет выполняться до тех пор, пока не будет выполнено одно из условий:
- a меньше 0 или b меньше 0 или sum больше 10000.
Внутри цикла пользователю предлагается ввести два числа a и b.
Значение sum увеличивается на произведение a и b.
После выполнения цикла, проверяется значение sum.
Если sum меньше 10000, выводится сообщение bilo vvedeno otritsatelnoe chislo.
Если sum больше или равно 10000, выводится сообщение summa =, и значение sum.