Проверте пожалуйсто.

[StoneGod]

Нужно написать программу перевода двоичного числа в дистичное. Двоичное число преставленно ввиде одномерного массива.

program Project1;

var a:array[1..50] of integer;
i,c:integer;


begin
c:=0;
writeln('введите число');
read(a[i]);
for i:=50 to 1 do
c:=c+a[i]*exp(ln(2)*0+1);
writeln('c=',c);
readln;
end.