Составьте программу, которая определяет, является ли сумма цифр введенного…

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