Составьте программу к задаче Определите является ли введеное число двузначным .пж напишите срочно
Var a: integer; begin while true do begin readln(a); if(a mod 2 = 0) then writeln('Chetnoe') else writeln('Nechetnoe'); end; end.