Программа на Паскале использует ф. Герона, которая в условии записана неверно.
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?