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

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