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

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