Целая и дробная части заданного вещественного числа одинаковы. (программа Паскаль)

Умного
немного
холодного 
выгодного
давнего
егоразумного
безумного
умного
немного
двудомного
темного
огромного
земного
славного
церковного
лобного
народного
уездного
неблагородного
преподобного
бледного
кровожадного
портативного
пагубного
любовного
бедного
четырехдневного
чиновного
тщеславного
противного
подобного
враждебного
ровного
духовного
сноповидного
главного
родного
парадного
равного
очевидного
сумасбродного
служебного
звездного
дневного
кровного
учебного
отрадного
ржаного
благородного
непрерывного
волшебного
основного
вредного
холодного
выгодного
нервного
громадного
наивного
душевного
двоюродного
забавного
свободного
одного
елового
скучливого
левого
флангового
грубого
годового
багрового
родового
мозаикового
игреневого
особого
рябого
здравого
пытливого
передового
коленкорового
ярового
казового
шутливого
спиртового
часового
тесового
живого
дворового
молчаливого
бокового
нового
соснового
задумчивого
смешливого
готового
учтивого
липового
шелкового
правого
слабого
милостивого
ласкового
счастливого
ого
вестового
коричневого
здорового
газового
коврового
рокового
полкового
бестолкового
вого
красивого
внешнего
искреннего
заднего
нынешнего
десятилетнего
благо
летнего
весеннего
здешнего
семилетнего
ближнего
давнего
нижнего
крайнего
осеннего
позднего
всегдашнего
него
завтрашнего
недавнего
среднего
прежнего
свежего
дальнего
утреннего
теперешнего
неискреннего
синего
проезжего
тогдашнего
последнего
верхнего
рыжего
его
похожего
внутреннего
сорокалетнего
двадцатилетнего
раннего
вечернего
твоего
вчерашнего
сегодняшнего
зимнего
лишнего
переднего
своего
каураго
домашнего
древне