С клавиатуры вводятся произвольные числа необходимо вычислить разность всех введенных чисел условием выхода из цикла является произведение чисел больше 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.