program mn;
uses crt;
var f:text;
i,j:integer;
BEGIN
ClrSCr;
Assign(f,'text.txt');
rewrite(f);
for i:=1 to 9 do
for j:=1 to i do
write(f,i);
writeln(f);
end;
close(f);
readln;
END.