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.