var x,y,n,i:longint; begin readln(n); for i:=1 to n do writeln(i); end. /************************************************************** Problem: 1696 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/