noip初赛阅读程序试题 谁帮我做一下 好的话+分

noip初赛阅读程序试题 谁帮我做一下 好的话+分
13.program chu7_2;
var i,j,f:integer;
a:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
f:=i mod 2;
if f=0 then a[i]:=0
  else a[i]:=1;
for j:=1 to i do
if f=0 then a[i]:=a[i]+j
  else a[i]:=a[i]*j
end;
for i:=1 to 8 do write(a[i]:5);
end.
14.program chu7_3;
var p,q,s,t:integer;
begin
readln(p);
for q:=p+1 to 2*p do
begin
t:=0; s:=(p*q)mod(q-p);
     if s=0 then begin t:=p+q+(p*q)div(q-p); write(t:4); end;
end;
readln
end.
输入：12
输出：