高手帮帮忙，总是超时wa5个点

var a:array[1..20] of longint；

m,p,p1:qword；

i,j:longint；

begin

readln(m)；

if m=1 then begin write(’None’)；exit；end；

writeln(1)；

for i:= to m div 2 do

begin

p:=(2*m+1+i) mod m；

p1:=(2*m-1+i) mod m；

if (p*p1) mod m=0 then begin writeln(i)； inc(j)；a[j]:=m-i；end；

if j>3 then break；

end；

for i:=j downto 1 do writeln(a[i])；

writeln(m-1)；

end.

顶，顶顶，顶顶，顶顶，顶顶，顶顶，顶顶，顶

顶

！！