С клавиатуры вводятся произвольные числа необходимо вычислить разность всех введенных чисел условием выхода из цикла является произведение чисел больше 1000Написать программу на языке паскаль

Предыдущий
вопрос Следующий
вопрос

program DifferenceCalculation;
var
inputNumber, product, difference: Integer;
begin
product := 1;
difference := 0;
repeat
Write('Enter a number: ');
Readln(inputNumber);
if inputNumber > 1000 then
Break;
product := product * inputNumber;
difference := difference - inputNumber;
until false;
writeln('The difference of all numbers entered is: ', difference);
end.

Программа позволяет пользователю вводить произвольные числа, после чего вычисляет разность всех введенных чисел. Условием выхода из цикла является ввод числа больше 1000.