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

Program chisla;

const

n=7;

var

prm,prp,i: integer;

begin

prm:=1;

prp:=1;

for i=-n to n do

begin

if ilt;0 then prm:=prm*i

if igt;0 then prp:=prp*i

end;

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

end.

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