Две задачки на паскаль, через операторы цикла!!

[Mixozz]

Помогите написать две программки, используя операторы цикла!
1. Вводится последовательность из N целых чисел. Найти куб суммы чисел, находящихся в промежутке от 10 до 20.
2. Вводится последовательность целых чисел, 0 – конец последовательности. Определить, сколько в ней пар соседних равных элементов.

Помогите плз, а то вообще мыслей нет. Идею хотяб подкиньте

[VIK_aka_TOR]

не проверял...
1.

readln(n);
sum := 0;
for i:= 1 to n do
begin
readln(x);
if (x <= 20) and (x >= 10) then
sum := sum + x;
end;
writeln(sum * sum * sum);

2.

index := 0;
read(last);
while (last <> 0)
begin
readl(next);
if read = next then inc(index);
last := next;
end;