Составить программу по : дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"

Var x, l: integer;
begin
  readln(x);
  l := Trunc(Log10(Abs(x)));
  if l = 2 then
    writeln (x)
  else 
    writeln('число не трехзначное');
end.