Program Dvch;
var N:integer;
begin
writeln('Введите число N');
readln(N);
If (N>9) and (N<100) then writeln('число ',n:2,' является двухзначным')
else writeln('число ',n:2,' не является двухзначным');
If N mod 2=0 then writeln('число ',n:2,' является четным')
else writeln('число ',n:2,' не является четным');
end.