Question

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

Answer 1

var
    n: integer;

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