Вывести на экран 1 или 0 в зависимости от того есть ли среди первых трёх цифр дробной части заданного положительного вещественного числа цифра ноль (Delphi)

Предыдущий
вопрос Следующий
вопрос

Program CheckZeroInFraction;

var
num: Real;
fraction: Real;

begin
Write('Enter a positive real number: ');
ReadLn(num);

fraction := Frac(num) * 1000; // Умножаем дробную часть на 1000, чтобы получить первые три цифры

if (Trunc(fraction) mod 10 = 0) or (Trunc(fraction) div 10 mod 10 = 0) or (Trunc(fraction) div 100 mod 10 = 0) then
WriteLn('1')
else
WriteLn('0');
end.