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

Дорова! ПОмогите а то 2 поставят пж

var M2, M7, M14, MAX, dat, res, N: longint; f: text;
begin
M2 := 0; M7 := 0; M14 := 0; MAX := 0;
assign(f,'27985_A.txt');
reset(f);
readln(f, N);
while not eof(f) do begin
readln(f, dat);
if ((dat mod 2) = 0) and ((dat mod 7) >0) and (dat > M2) then M2 := dat;
if ((dat mod 7) = 0) and ((dat mod 2) > 0) and (dat > M7) then M7 := dat;
if (dat mod 14 = 0) and (dat > M14) then begin
if M14 > MAX then MAX := M14;
M14 := dat;
end
else
if dat > MAX then MAX := dat;
end;
if (M2*M7 < M14 *MAX) then
res := M14*MAX
else
res := M2*M7;
writeln(res);
end.

Перевдите на питон пж