Program zadacha;
Type mas=Array[0..100] of Integer; //так делается тип твоего массива
Var m:mas;    // обозначается
      i,n:Integer;
Begin   
      ReadLn(n);    // вводится длина массиа
      For i:=1 to n do begin // начинаем цикл
          m[i]:=i;  // присваивает элементу массива как значение - его номер
          Write(m[i],' ');  // печатаем
      end;    // заканчиваем цикл
      ReadLn; // вводится, чтобы консоль сразу не закрывалась(будешь сдавать задачу в       систему - не пиши!!
End.