Ответ:

Ошибка в том, что переменные в программе заданы типом Integer (целочисленные).

Чтобы исправить ошибку, нужно заменить тип переменных во 2 строке на real

Рад был помочь.