Помогите решить эти задачи!!

1)

var

 i:integer;

begin

 i:=3;

 while( i <= 24) do begin

   writeln('Через ',i, 'ч : ' , power(2, i div 3));

   i := i + 3;

 end;

end.

2)

var

 i:integer;

begin

 i:=1;

 while( i <= 15) do begin

   writeln('x = ',i,', y =  ', 5*i*i - 2*i + 1);

   i := i + 2;

 end;

end.

3)

var

 i:integer;

 s:real;

begin

 i:=2;

 s:=1;

 while( i <= 50) do begin

   s := s + (1/i);

   i := i + 1;

 end;

 write(s);

end.