составьте программу, проверяющую, верно ли утверждение, что сумма цифр, введенного вами числа, является четным

Program chet;var    sum:integer;    a,b:integer;beginwriteln('Введите число a:');readln(a);writeln('Введите число b:');readln(b);sum:=a+b;If (sum mod 2=0) then writeln('Чётное')Else writeln('Не чётное');End.

var a , b ,c:integer;beginwriteln('Введите первое число:');readln(a);writeln('Введите второе число:');readln(b);c:=a+b;if (c mod 2)=0 then writeln( 'Сумма чисел четное')else writln('Сумма чисел нечетное');end.