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

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.

cfvjktn8    2   04.11.2019 16:10    0