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

var    r: real;     i: integer;begin    Readln(r);    i := Trunc(r * 1000);    if (i mod 10 = 0) or (i div 10 mod 10 = 0) or (i div 100 mod 10 = 0) then        writeln(1)    else writeln(0);end.