Зачем вы объявляете переменные в функции, а потом нигде их не используете? Я имею в виду строчки
Цитата
function num(i:longint):integer;
и
Цитата
function root(l:longint):integer;
, в этих функциях ни i, ни l соответственно нигде не встречаются. Lucky you, что это паскаль, где переменные объявляются зарание. С Вам такого финта ушами не простит.
Что не получается с переводом на С?