Cоставьте программу вычисления произведения целых чисел из промежутка [-6; 5) составить надо на pascalabc(важно чтобы она была относительно простой т.к я 8 класс)

Program a1;
Uses Crt;
Var i,p:integer;
begin
p:=1;
for i:=-6 to 4 do
p:=p*i;
writeln('proizvedenie = ',p);
end.

Var i, multi: integer;
begin
multi := 1;
for i := -6 to 4 do multi *= i;
write(multi);
end.