begin
k:=trunc((t[i]+5)/10);
write(i:2,t[i]:4,' ');
{writeln ('k=',k:3);}
for j:=1 to k do write(aa[j]);writeln;
end;
readln
end.