Program p3;
var a:byte;
begin
Write('Введите А, А = ');
Readln(a);
If (a mod 10 + a div 10) mod 2 = 0 then 
    writeln('Является') else
        writeln('Не является');
end.