Задачи. Паскаль

[cheloveg]

Помогите пожалуйста написать программы

1) Определить сумму чисел с четными номерами и произведение чисел с нечетными номерами. Подсчитать количество слагаемых и количество сомножителей. При вводе числа 77566 закончить работу.

2)Определить сумму вводимых положительных чисел. Причем числа с нечетными номерами суммировать с обратным знаком, а числа с четными номерами перед суммированием возводить в квадрат. Подсчитать количество слагаемых. При вводе первого отрицательного числа закончить работу.

[VIK_aka_TOR]

вводить числа в цикл? или как...
окончание работы : если введенное число = 77566, то break; тобишь выход из цикла ввода... вторую прогу... сумеешь первую сделать, сделаешь и вторую... кидай наработачки... поможем что не ясно или не получается...

[IT-man]

1)

s:=0;p:=1;Cs:=0,cm:=0
while Slag<>77566 do
begin
readln(slag);
if slag<>77566 then begin
if odd(k) then begin p:=p*slag;cm:=cm+1;end;
else begin  s:=s+slag;cs:=cs+1; end;
end;end;

2) по образу и подобию №1

[Steve4terio]

решите пожалуйста вторую задачю. такое же задание, не понимаю просто(