Помогите решить!!!! Вывести на печать числа от 0 до n, считая,

1)
Program n1;
var n,i: integer;
begin
readln(n);
for i:=0 to n do write(i,' ');
end.

2)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
while ilt;=n do
begin
write(i,' ');
i:=i+1;
end;
end.

3)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
repeat
write(i,' ');
i:=i+1;
until igt;n
end.

примечание:
0 не является естественным числом, потому если надобно, чтоб числа выводились начиная с 1, надо везде строку i:=0 заменить на i:=1