Напишите программу для решения задачи

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

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.

Var

n: integer;

begin

readln (n) ;

writeln ((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0)) ;

end.