Ответы и объяснения

2013-02-12T21:35:36+04:00

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.