Найти ошибку в программе, program nastya; var n: integer; procedure perewod8(n: integer); begin if n> 1 then perewod8(n div 8); write (n mod 8); end; begin write ('введите натуральное число n='); read(n); perewod8(n); end.