Var
     n,
     check_n,
     : integer;
     flag : boolean;
Begin
     write(Введите чило);
     readln(n);
   
{Проверяется, является ли n четным}
     if n mod 2 = 0
          then
               flag = true;
          else
               flag = false;
     
{Проверяется, является ли n двухзначным}
     if n div 10 lt;gt; 0
          then
               flag = true;
          else
               flag = false;

     if flag
          then
                writeln(Число , n,  является четным двухзначным);
          else
               writeln(Число , n, не является четным двухзначным);
End.