Определить, является ли число целым и положительным - Pascal ABC

Формулировка задачи:

Здравствуйте! Необходимо составить функцию или процедуру (с объяснением выбора), которая будет определять является ли число целым и положительным. Заранее благодарю.

Решение задачи: «Определить, является ли число целым и положительным»

Листинг программы

(x > 0) and (int(x) = x);

Объяснение кода листинга программы

В первой строке кода используется оператор and, который логически связывает два условия.
В следующих двух строках кода используются операторы > и = для проверки, что значение переменной x больше 0 и является целым числом.
В третьей строке кода используется функция int, которая преобразует значение переменной x в целое число.
В четвертой строке кода используется оператор = для сравнения преобразованного значения переменной x с исходным значением переменной x.
Код завершается, если оба условия истинны, то есть значение переменной x больше 0 и является целым числом.