Составьте программу к определите является ли введеное число двузначным . напишите

Var a: integer; begin while true do begin   readln(a);   if(a mod 2 = 0) then writeln('Chetnoe') else   writeln('Nechetnoe'); end; end.