Помогите найти ошибку в программе,Program nastya;var n: integer;Procedure...

Question

Помогите найти ошибку в программе,

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.

Answer 1

А компьютер не выделяет красненьким примерное место, где есть ошибка? 

Comments

Нет просто в ответе пишет например 027 вместо 27

---

но 027 это то же самое, что 27, разве нет?