Вычислить произведение положительных и отрицательных чисел,в интервале от -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 можно изменять интервал.