Выяснить, что целая и дробная части заданного вещественного числа одинаковы - Pascal

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

Составить программу, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае. Целая и дробная части заданного вещественного числа одинаковы.

Решение задачи: «Выяснить, что целая и дробная части заданного вещественного числа одинаковы»

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

var p1,p2,err:integer;
s:string;
 
begin
writeln('Введите число');
readln(s);
val(copy(s,1,pos('.',s)-1),p1,err);
val(copy(s,pos('.',s)+1,length(s)),p2,err);
writeln(p1=p2);  
end.

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

В начале объявляются три переменные: p1, p2 и err, которые будут использоваться для хранения целой и дробной частей числа и для проверки ошибок при вычислениях соответственно.
Затем объявляется переменная s, которая будет использоваться для хранения введенного пользователем числа.
После этого выводится сообщение Введите число и считывается введенное значение с помощью функции readln.
Далее используется функция val для вычисления целой части числа. Функция val считывает введенное значение и присваивает его переменной p1. Если введенное значение не является числом, то переменная err устанавливается в значение 1, что будет обработано позже.
Затем используется функция val для вычисления дробной части числа. Функция val считывает введенное значение, начиная с позиции точки в строке (pos('.',s)) и до конца строки (length(s)), и присваивает его переменной p2. Если введенное значение не является числом, то переменная err устанавливается в значение 1, что будет обработано позже.
Наконец, выводится сообщение с результатом проверки равенства целой и дробной частей числа. Если p1 и p2 равны, то выводится p1=p2, иначе выводится p1<>p2.
Конец программы.