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.