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

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