program DigitsInNumber;
var
number, firstDigit, secondDigit, thirdDigit: integer;
begin
writeln('Введите трехзначное число:');
readln(number);
if (number < 100) or (number > 999) then begin
writeln('Число не трехзначное.');
end
else begin
firstDigit := number div 100;
secondDigit := (number div 10) mod 10;
thirdDigit := number mod 10;
writeln('Первая цифра: ', firstDigit);
writeln('Вторая цифра: ', secondDigit);
writeln('Третья цифра: ', thirdDigit);
end;
end.

Программа запрашивает ввод трехзначного числа, затем определяет каждую цифру в этом числе и выводит их на экран. В случае, если число не является трехзначным, программа выведет соответствующее сообщение.