Вы спросили адрес сайта ya. ru. Сколько дней информация будет считаться актуальной?

ответ: да сколько хочешь

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);