Если я правильно понял задание, то вот:
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.
