var a,i,j:longint; begin read(a); for i:=1 to a do begin for j:=1 to i do write(j); writeln; end; end. /************************************************************** Problem: 1784 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/