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

Спасибо большое!

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