ДАЮ 100 БАЛЛОВ!
Помогите перевести с паскаля на питон:
var a,b,i:integer;N:string;

begin

read(N);

for i:=1 to length(N) do

begin

if N[i]='2' then a:=a+2 else b:=b+3;

end;

write(a-b);

end.