Напишите программу на паскале определения суммы цифр числа

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