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

Program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils, Math;

var a: real;
      n: integer;
begin
  write('число: '); readln(a);
  n:=Floor(a*1000);
  if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or
     ((n div 100) mod 10 = 0) then writeln(1)
  else writeln(0);
end.
  
число: 4785.201457
1

Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.

Прости, я не могу это щас решить

Объяснение:

Берём например ip 210.171.30.128

Берем число 210 и начинаем делить на 2.

210 поделить на 2 равно 105 с остатком 0.

105 раздели на 2 равно 52 с остатком 1.

52 поделить на 2 выходит 26 с остатком 0.

26 поделим на 2 - получится 13 с остатком 0.

13 - 6 с остатком 1.

Делим 6 и получаем 3 с остатком 0.

3 на 2 - выходит 1 с остатком 1.

1 поделить на 2 - получается 0 с остатком 1.

Теперь записываем значение в обратном порядке (с конца): 11010010.

Прости, но тебе придётся самому решить