program t1506;
var
n,m,a,b,c,i,j,l:integer;
k,o:real;s:string;
h:array [1..100] of integer;
q:array [1..10,1..10] of integer;
p:array [1..10,1..10] of integer;
begin
readln(n,k);
for i:=1 to n do
read(h[i]);
m:=trunc(sqrt(n));
if frac(sqrt(n))<>0 then inc(m);
for i:=1 to m do
for j:=1 to m do
begin
inc(b);
p[i,j]:=h[b];
str(h[b],s);
q[i,j]:=length(s);
if q[i,j]>a then a:=q[i,j];
end;
for i:=1 to m do
for j:=1 to m do
begin
write(' ');
for b:=1 to (a-q[j,i]) do write(' ');
if j<>m then
begin
write(p[j,i]);
inc(l);
end
else
begin
writeln(p[j,i]);
inc(l);
end;
if l=n then halt;
end;
end.
Edited by author 03.03.2010 10:22