Решение задачи с помощью цикла с постусловием "Вывести на экран числа от 1 до n"

var i,n:integer;
begin
writeln ('Введите n');
readln(n);
i:=0;
repeat
begin
writeln(i);
i:=i+1;
end;
until i= n+1;
end.



n+1, т.к. нужно выявить на экран все числа от 1 до n включительно