1.set talk offp=0for i=1 to 21 p=p+i*(i+1)endfor?pset talk offreturn2.set talk offs=0for i=1 to 100 if i%3=0 and mod(i,7)=0 s=s+i endifendfor?sset talk offreturn4(a)set talk offclearfor i=1 to 4 ?space(4-i)+repl(str(i,1),2*i-1)endforfor i=3 to 1 step -1 ?space(4-i)+repl(str(i,1),2*i-1) endforset talk offreturn4(b)set talk offfor i=1 to 4 ?space(4-i) for j=1 to i ?str(j,1) endfor for k=j to 3 step -1 ?
