дано трехзначное число. проверить будет ли сумма его цифр четным числом.
на Pascal abc

program dsjugf;uses crt;var a,b,c,s: integer;beginreadln(a);s:=0;b:=a mod 10;a:=a div 10;c:=a mod 10;a:=a div 10;s:=a+b+c;if ((s mod 2)=0) then writeln('четное');else writeln('нечетное');readln;end.