var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0 then write('четное ') else write ('нечетное ');
if (a>0) and (a<10) then write ('однозначное число') else write ('двузначное число')
end.
var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0 then write('четное ') else write ('нечетное ');
if (a>0) and (a<10) then write ('однозначное число') else write ('двузначное число')
end.