程序如下：

program p1558;

var a:array[0..3322]of longint;

i,m,n,s:longint;

begin

read(m);

n:=0;

a[0]:=1;

while a[n]