Дано 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.