Да все все не так! Что у тебя делает процедура NOD? Она ведь просто оперирует своими внутренними переменными и все. Я думаю процедура NOD должна быть
функцией, которая тебе вернет значение, которое в свою очередь подставиться в знаменатель формулы
Код:
NOK := (a*b) / NOD(a,b,Na)
Почему переменной "Na" ничего не присвоено?