С клавиатуры вводится сначала количество чисел, а затем сами числа. Найдите сумму всех чётных чисел последовательности.

program proba;var i,x,sum,n:integer;beginread(n);for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;writeln(sum);end.

main.pas(6,24) Warning: Variable "sum" does not seem to be initializedLinking main8 lines compiled, 0.1 sec1 warning(s) issued/usr/bin/ld: warning: link.res contains output sections; did you forget -T?

вот такую ошибку выдаёт

vari, x, sum, n: integer;beginread(n);for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;writeln(sum);end.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqInteger(ReadInteger).Where(t->t.IsEven).Sum.Printlnend.Пример85 -3 12 7 14 23 18 -2024