дано натуральное число N. Написать программу, выводящую последовательность чисел 1,2,3....,N (решить с помощью while)
по возможности решите еще и 
Дано n натуральных чисел. Написать программу, вычисляющую их среднее арифметическое (число n вводится перед всеми остальными числами )  
Дано натуральное число n. Написать программу, выводящую степени двойки от первой до n-й 2,4,8,6 ... 

Переведите целые числа из десятичной системы счисления в восьмеричную:

а) 513;

спасибо огромное

б) 600;

в) 2010.

var n,i:integer;beginwrite('N= ');read(n);i:=1;while i<=n dobeginwriteln(i);i:=i+1;end;end.var n,i,sum:integer;cp:real;beginwrite('N= ');read(n);i:=0;while i<n dobegini:=i+1;sum:=sum+i;end;cp:=sum/i;writeln('Среднее значение натуральных чисел до N равно ',cp);end.var n,i,b,m:integer;beginwrite('N= ');read(n);b:=2;i:=0;write(b);writeln;while i<n-1 dobegini:=i+1;b:=b*2;writeln(b);end;end.