Pascal ABC.

var   
   i,n:integer; 
begin     
   readln(n);     
   for i:=1 to n do         
      write(i,' ');     
   writeln; 
end.

Язык C++.
#include <iostream>
using namespace std;
int main() {
    int n;
    cout << "Введите число, большее 1: " << endl;
    cin >> n;
    for(int i = 1; i<=n; i++) {
            cout << i << endl;
            }
            if(n < 1)
            cout << "Некорректный ввод." << endl;
    }