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

Question

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

Answer 1

begin

 var a := -10;

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

end.