Проверьте пожалуйста программу(выполнена на Паскале АВС)
Операции mod и div выполняются исключительно над целым типом, то есть integer.
S, a - должны быть целочисленными, а не вещественными.