Question

найти произведение натуральных чисел от 8 до 15

Answer 1

var a:array [1..100] of integer;

i,p:integer;

begin

p:=1;

for i:=8 to 15 do begin

a[i]:=i;

p:=p*a[i];

end;

writeln(p);

end.