составьте программу которая определяет являеться ли сумма цифр ...

Lera

var a,b,c,d,e:integer; begin read(a); c:=a mod 10 ; b:=a div 10 mod 10; d:= a div 100 mod 10; e:=c+d+b; if e mod 2 =0 then write('Четное') else write('Нечетное'); end.