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