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

program z2_3v;
const
  MAXN = 20;
type
  tcable = array [1..MAXN] of integer;
procedure init(var used:tcable);
var
  i:integer;
begin
  for i:=1 to MAXN do
    used[i]:=0;
end;
procedure fill(var cable:tcable; var n:integer);
var
  i:integer;
begin
  for i:=1 to n do
  begin
    readln(cable[i]);
  end;
end;
function shift(var used:tcable; n:integer):boolean;
var
  i:integer;
  over:boolean;
begin
  i:=n;
  over:=true;
  while over and (i>=1) do
  begin
     used[i]:=used[i]+1;
     if used[i]>1 then
     begin
       used[i]:=0;
       i:=i-1;
     end
     else
       over:=false;
  end;
  shift:=over;
end;
function calc(used,cable:tcable; n,l:integer):boolean;
var
  i:integer;
  sm:integer;
begin
  for i:=1 to n do
  begin
    if used[i]=1 then
    begin
      sm:=sm+cable[i];
    end;
  end;
 calc:=(sm=l);
end;
function work(used,cable:tcable; n,l:integer):integer;
var
  over,flag:boolean;
begin
  over:=false;
  flag:=false;
while not over and not flag do
begin
  flag:=calc(used,cable,n,l);
  over:=shift(used,n);
end;
if flag then
  work := 1
  else
  work := 0;
end;
var
  used,cable:tcable;
  n,l:integer;
begin
  init(used);
  readln(n,l);
  fill(cable,n);
  writeln(work(used,cable,n,l));
end.