Вывести все числа от - 4 до 2n. Вычислить сумму четных элементов последовательности.
i, s, n: integer;
begin
readln(n);
s := 0;
for i:=-4 to 2*n do
writeln(i);
if (i mod 2 = 0) then
s := s + i;
end;
writeln('Сумма: ', s);
end.