Дано четырех значное число. Нужно проверить является ли сумма цифр заданного числа четная.
Формат ввода
В входном файле находится одно четырехзначное число.
Формат вывода
В выходной файл следует вывести сообщение "YES", если сумма цифр число четная или "NO", если сумма не четная.

vara:array[1..4] of integer;s,i:integer;beginwhile i < 4 do begini+=1;read(a[i]);s+=a[i];end;if frac(s/2) = 0 then write('yes')else write('not');end.