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