Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно. Натуральное число a является однозначным или трехзначным — Pascal(Паскаль)

var a:integer; b:boolean;
begin
write('a=');
readln(a);
writeln('a yavlyaetsya odnoznachnym?');
if (a>-10) and (a<10) then
        b:=True
        else
        b:=False;
writeln(b);
writeln('a yavlyaetsya trehznachnym?');
if (a>99) and (a<1000) then
        b:=True
        else
        b:=False;
writeln(b);
end.

var
  a:integer;
  l:boolean;
begin
  readln(a);
  if (a < 10) or (a < 1000) and (a > 99) then
    l:= true
  else
    l:= false;
  if l then writeln('true')
  else writeln('false');
end.