Помогите:3 Вывести на экран все натуральные числа до заданного. (в паскале)

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