Люди,помогите написать программу в Паскале. Нужно,чтобы сравнивалась дробная и целая часть вещественного числа,если она одна и та же,то тру,если нет,то false. Допустим 12.12 будет тру,а если нет,то фолс. Проблема в том,что через fruc и int сравнивается 12 и 0.12. Домножать на 100 нельзя,тк это универсальная программа,может быть и число 123.123

var  V: real;  c,b: integer;begin  writeln('Введите число');  readln(V);  c:=round(V);  V:=V-c;  b:=c;  while c>0 do begin     c:=c div 10;     V:=V*10;  end;  c:=round(V);  V:=V-c;  if round(V*10000)<>0 then     writeln('части не равны')  else begin    if b=c then      writeln('части равны')     else       writeln('части не равны');  end;    end.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadReal('Введите число:').ToString.ToWords('.');  if a.Length=2 then Writeln(a[0]=a[1])  else Writeln(False);end.ПримерыВведите число: 121.121TrueВведите число: 12.11999False