Массивы, Please, help Опции

[Valkirie]

Вводится массив. Найти минимум из сумм 3-х его последовательных элементов. Например, для массива

1 3 4 6 7
данные суммы равны 8, 13 и 17, минимум равен 8.

Помогите, умираю

[Valkirie]

Всё-таки нужна будет помощь... :molitva:
Дана последовательность целых чисел ai. Построить новую последовательность, содержащую элементы исходной последовательности, равными двойке в четной степени.
Вход
В каждой строке входа дано по одному элементу исходной последовательности. Признак конца последовательности - 0.
Выход
В каждую строку выхода вывести по одному элементу результирующей последовательности. Заключительный нуль в результат не выводить.

Пример
Вход:
433
16
8
128
1024
654
0

Выход:
16
1024

Я вот тут насочиняла

Код

var A,X:integer;
begin
repeat
Write('');
ReadLn(A);
X:=0;
if (A=Exp(X*Ln(2))) and (X mod 2=0) then
WriteLn(A)
else X:=X+1;
until A=0;
ReadLn;
end.

Но работать оно не желает =(