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

Если я правильно понял задание, то вот:

var d, p, n:Real;

begin

d := 0; p:= 1;

while (p <= 1000) do begin

   read(n);

   if (n >0) then d := d-n;

   p := p*n;

end

writeln();

writeln('Разность: ', d);

end.