Mình viết code C++ nhé.

#include <iostream>

using namespace std;

int main()
{

    int N;//Khai báo số nguyên N.

    cin >> N; //Nhập vào số nguyên N từ bàn phím.

    for (int i = 1; i<=N; ++i) //Duyệt các số từ 1 đến N

          cout << i << endl; //Xuất số i trong 1 dòng.

    return 0; //Kết thúc.

}

//Bạn có thể tham khảo code Pascal:

Var N: LongInt;

BEGIN

      Readln(N);

      for i:=1 to n do WriteLn(i);

      Readln;

END.

Program BTT;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Writeln(i);
        Readln
End.