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.