uses crt;

var n,count,code:longint;

st:string;

begin

clrscr;

readln$n$;

str$n,st$;

writeln${}^{\prime }Перваяцифра{:}^{\prime },st[length(st)]{,}^{\prime };Втораяцифра{:}^{\prime },st[length(st)-1]$;

val$st[length(st)],count,code$;

if odd$count$ then write${}^{\prime }Нет,неверно,перваяцифрачисл{а}^{\prime },n{,}^{\prime }нечетна{я}^{\prime }$

else write${}^{\prime }Да,верно,перваяцифрачисл{а}^{\prime },n{,}^{\prime }четна{я}^{\prime }$;

readkey;

end.