input""n
for i=1to n
for j=1to n
a=i
b=j
while(b)t=mod(a,b)
a=b
b=t
wend
?mid$(" t",1+!a-1,1);next
?next