Напишите программу для решения определить является ли данное число n чётным двухзначным числом

Var
    n: integer;

begin
    readln(n);
    writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.

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 <> 0
          then
               flag = true;
          else
               flag = false;

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