Дано четырех значное число. нужно проверить является ли сумма цифр заданного числа четная. формат ввода в входном файле находится одно четырехзначное число. формат вывода в выходной файл следует вывести сообщение "yes", если сумма цифр число четная или "no", если сумма не четная.
a:array[1..4] of integer;
s,i:integer;
begin
while i < 4 do begin
i+=1;
read(a[i]);
s+=a[i];
end;
if frac(s/2) = 0 then write('yes')
else write('not');
end.