Вычислить произведение положительных и отрицательных чисел, в интервале от - 7 до 7 на Pascal ABC

Program chisla;

const

n=7;

var

prm, prp, i: integer;

begin

prm:=1;

prp:=1;

for i=-n to n do

begin

if i<0 then prm:=prm*i

if i>0 then prp:=prp*i

end;

writeln ('произведение положительных чисел = ', prp,', произведение отрицательных членов = ', prm);

end.

Изменяя в строке const значение n можно изменять интервал.