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

который можно будет вписать

Этот "маразм" на сайте появился дня 4 - 5 назад, до этого проблем с копированием текста не было.

Я просто не понимаю куда его вводить

мне надо ввести этот код в кнопку и при нажатии на неё выводился 0 или 1

Заводите на форме два поля Edit1 и Edit2, Edit2 - для ввода числа, Edit1 - для результата, тогда программа обработки нажатия кнопки Button1 будет следующая: procedure TForm1.Button1Click(Sender: TObject);var a: real; n: integer;begin a:=StrToFloat(Edit2.Text); n:=Floor(a*1000); if (n mod 10 = 0) or ((n div 10) mod 10 = 0) or ((n div 100) mod 10 = 0) then Edit1.Text:='1' else Edit1.Text:='0';end;

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.2014571