Дано 3 двузначных числа. Вывести на экран те числа, в которых сумма цифр является четным числом.

Var a, b, c : integer;

begin

writeln ('Введите первое число');

readln (a);

if a mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');

writeln ('Введите второе число');

readln (b);

if b mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');

writeln ('Введите третье число');

readln (c);

if c mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');

end.