На месте первой буквы может стоять только 4 буквы, на второй тоже 4(М может быть только на 5м)
на 3,4,6,7х местах по 3(т.к. "М" на 5м, а "Х" на 1м или 2м), на 5м месте тоже 4.
4*4*3*3*4*3*3 = 5184
3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.