задание:
ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления. (только с помощью линейного алгоритма).
подскажите что следует изменить в этой программке...?..:
program _;
uses crt;
var
x,a,b,c,d,k: integer
begin
clrsgr;
writeln ('введите число в восьмеричной системе x');
readln (x);
a:=x div 100;
k:=x-a*100;
b:=k div 10;
c:=x mod 10;
writeln (a);
writeln (b);
writeln (c);
d:=a*64+b*8+c
writeln ('d=',d);
readln;
end.
заранее благодарна
...