Question

Наити произведение целых чисел от - 8 до 2

Answer 1

program program1; var i,p:integer; begin p:=1; for i:=5 to 15 do p:=p*i; write(p); end.