Вопрос по Delphi. нужна помощь нужно через функию if,then,else показать что если if Sqr (D) = целое число then

Sqr (D) будет целым числом, если:
1. D - целое число (объявлено как целый тип) . В этом случае никакие проверки не нужны.
2. Дробная часть Sqr (D) меньше некоторого малого е:

const epsilon=0.00001;
...
if frac(sqr(d)) < epsilon then ...

epsilon надо подобрать в соответствии с предполагаемым размером числа и мантиссы.