Abc pascal заданы 2 натуральные числа является ли первое число двухзначным а второе однозначным

Program Project2; 
{$APPTYPE CONSOLE}
uses  SysUtils;
var a,b:integer;
begin 
readln(a,b); 
if (a div 10 =0) and (b div 1000=0) then 
 writeln('True'); 
readln;
end.