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

1)Program n1;var n,i: integer;beginreadln(n);for i:=0 to n do write(i,' ');end.2)Program n1;var n,i: integer;beginreadln(n);i:=0;while i<=n dobeginwrite(i,' ');i:=i+1; end;end.3)Program n1;var n,i: integer;beginreadln(n);i:=0;repeatwrite(i,' ');i:=i+1;until i>nend.примечание:0 не является натуральным числом, поэтому если надо, чтобы числа выводились начиная с 1, надо везде строчку i:=0 заменить на i:=1