Для целочисленного массива a[1..5] выяснить, является ли сумма его элементов четным числом. вывести "да" или "нет".

Program gt;
var a:array[1..1000]of integer
;i,n,s:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
if(s mod 2=0)then writeln('YES')else write('NO');
end.