Переведите с паскаля на питон , .

const m=1;
var
f: text;
a: array[1..m] of 0..1;
n,b,k,i: integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i: =1 to m do a[i]: =0;
for i: =1 to n do
begin
read(f,b);
a[b]: =1;
end;
close(f);
k: =0;
for i: =1 to m do k: =k+a[i];
writeln('k=',k);
end.

1. Записать двоичное число так, чтобы над ним сверху было место.
2. Над каждой двоичной цифрой (нулем или единицей) записать справа налево числа, начиная с единицы, при этом каждая последующая цифра должна равняться удвоенной предыдущей, т.е. цифры будут 1, 2, 4, 8, 16, 32, 64, ...
3. Сложить между собой те написанные числа, под которыми окажутся единицы из двоичной записи числа.
4. Полученная сумма - эквивалент двоичного числа в десятичной системе счисления.

Пример:

64 32 16 8 4 2 1
1    0  1  0 1 1 0
Складываем: 64+16+4+2=86.
1010110(2)=86(10)

Program Massivi;
var
i: Byte;
c: array [1..10] of Integer;
a, b: array [1..5] of Integer;
begin
// Zapolnee massiva c:
for i:=1 to 10 do
begin
//
Wtire('C['+IntToStr(i)+']=');
ReadLn(C[i]);
end;

// Formirovanie massivov a i b.
for i:=1 to 10 do
//
if i mod 2 = 0 then a[i div 2]:=c[i] else b[i div 2 + 1]:=c[i];

//
Write('Massiv a: ');
//
for i:=1 to 5 do Write(IntToStr(a[i])+', ');
//
WriteLn('');

//
Write('Massiv b: ');
//
for i:=1 to 5 do Write(IntToStr(b[i])+', ');
//
WriteLn('');

//
Write('Massiv c: ');
//
for i:=1 to 10 do Write(IntToStr(c[i])+', ');
end.