Решить в паскале. если число является двузначным и чётным уменьшить его в 2 раза иначе увеличить на 10 раз

Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>9)and(A<100)and(A mod 2 = 0) then A:=A div 2
else A:=A+10;
WriteLn(A);
End.