Pascal.abc
Пользователь вводит целое число. Если оно ЧЕТНОЕ, ЕСЛИ больше 10 И меньше 20, то вывести ИЗНАЧАЛЬНОЕ число, умноженное на 2.

var a: integer;

begin

read(a);

if (a mod 2 = 0) and (a > 10) and (a < 20) then writeln(a * 2);

end.