Дано трехзначное число .Определить, заканчивается ли оно четной цифрой.
Если последняя цифра делится на 2, значит число четное
Var a:integer; Begin Readln(a); If a mod 2=0 Then Writeln('Чётное') else Writeln('Нечётное'); Readln; End.