program  zamiana2na10;

uses crt;
type tablica = array[1..20] of byte;
var
n,w,x,i:integer;  a:tablica;

function potega(var wyk:integer):integer;
var i,wynik:integer;
  begin
    wynik:=1;
    for i:=1 to wyk do
     wynik:=wynik*2;
     potega:=wynik;
  end;

Begin
Writeln('Program zamienia liczbe dwojkowa na dziesietna');
writeln('Podaj ilosc cyfr twojej liczby');
readln(n);

writeln('Podaj kolejne cyfry liczby dwojkowej');
for i:=1 to n do
readln(a[i]);
w:=0;
x:=0;
 for i:=n downto 1 do
  Begin
   x:=x+a[i]*potega(w);
   w:=w+1;
  end;

writeln('Oto twoja liczba dziesietna ',x);

end.