Задать программу в которой при вводе числа n выводит ** экран предыдущие числа и его же....

Question

Задать программу в которой при вводе числа n выводит на экран предыдущие числа и его же. Тоесть:
Прог. "Введите число"
Учен. "5"
Прог. "1,2,3,4,5"

Answer 1

Program n1;
var i,n: integer;
begin
write('введите число: ');
readln(n);
for i:=1 to n do write(i,' ');
end.