Составьте программу которая выводит на экран числа от 1 до n

Program Rick_and_Morty;
var n,i:integer;
Begin

write('введите n: ');
readln (n);

write('ответ: ');

for i:=1 to n do
begin
write(i,' ');
end;

writeln('');
writeln('конец');

end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
Writeln(Range(1,ReadInteger('n =')));
end.