Помогите решить!

Вывести на печать числа от 0 до n, считая, что все числа натуральные, нужно составить 3 программы: 1) for 2) while 3) repeat

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 i<=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 i>n

end.

примечание:

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