[No Need In Magic]

ну вот основная часть первой:

var i,n:integer; s:array[1..10] of {...};
begin
{тут вводим массив, кол-во и все такое}
i:=1;
while i<=n do begin
writeln(s[i]);
i:=i*2;
end;
{...}
end.

=========================
вторая

var t:integer; c:char; f,g,h:text;
begin
assign(h,'f1');reset(h);
assign(f,'f2');rewrite(f);
repeat
read(h,t);
if t mod 15=0 then write(f,t,' ');
until eof(h);
assign(g,'f2');reset(g);
repeat
read(g,c);
write(c);
until eof(g);
end.