Дано целое число. Проверить: является ли данное число отрицательным двузначным числом кратным десяти. В PascalABC

begin

 var a := -10;

 Print((a div 10 in [-9..-1]) and (a mod 10 = 0))

end.