паскаль

[Дашка]

Помогите пожалуйста!!! Очень Нужно!!

1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...).

2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1.

3.7 Разработать программу формирования стека, куда помещается последовательность символов, вводимых с клавиатуры. Процесс ввода символов должен прекращаться, как только среди вводимых символов появляется точка, после этого программа должна реверсировать стек. Под реверсированием здесь понимается изменения направления ссылок в стеке на противоположное, т.е. после реверсирования вершина и дно стека меняется местами.

[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.