Составить команду,которая определяет, является ли введенное число двухзначным

Var a: integer;

begin

readln(a);

if (a >= 10) and (a <= 99) then

write('a двухзначное число')

else

write('a не двухзначное число')

end.