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

Паскаль!

Программа без проверки правильности ввода:

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)