Помогите пожалуйста!!!нужно написать программы на паскале!

1) дано целое число m>1. получить наибольшее целое k, при котором 4^k(четыре в степени k)<m.

2)дано натуральное число n, получить наименьшее число вида 2^r(два в степени r), превосходящее n.

3)дано натуральное число n. вычислить 1*2+2*3*4+...+n*(n+1)*...*2n     (*-знак умножения)

4)Вычислить:

       1

_____________

               1

1   + _________

                1

3    +  _________

                1

5     +  ________

 

......

               1

101   +   ___

             103

(______________ - дробь)

помогите чем сможете, пожалуйста!

program z1;vari,j,m,k,z,x,l:integer;beginreadln(m);for i:=0 to m do begin z:=1;if i=0 then z:=1 else beginx:=i;while x<>0 do beginz:=z*4;x:=x-1;end; end;if ((z<m) and (z*4>m)) then writeln(i);if z=m then writeln(i-1);end;end.

program z2;vari,j,n,k,z,x,l:integer;beginreadln(n);for i:=0 to n do begin z:=1;if i=0 then z:=1 else beginx:=i;while x<>0 do beginz:=z*2;x:=x-1;end; end;if ((z>n) and (z/2<n)) then writeln(i);if z=n then writeln(i+1);end;end.

program z3;vari,j,n,k,z,x,s:integer;beginreadln(n); s:=0;for i:=1 to n do begin z:=1;for j:=i to 2*i doz:=z*j;s:=s+z; end;writeln(s);end.

время 2 ночи 

...думаю пора спать )