Перевести трехзначное восьмеричное число в десятичную систему счисления. Паска?

Программа без проверки правильности ввода: var a,b:integer; begin write('Введите восьмеричное число: '); readln(a); b:=(a div 100)*8*8+(a div 10 mod 10)*8+(a mod 10); writeln(a,'(8) = ',b,'(10)'); end. Пример: Введите восьмеричное число: 724 724(8) = 468(10)