перевод из паскаля в питон var len, max, count: longint;s, s1: string;maxC: char;f: text;beginassign(f,'C:24. txt');reset(f);readln(f, s);len := length(s);s1 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';for i:integer := 1 to len-2 do beginif (s[i] = s[i+2]) thens1 := s1. Substring(0, s1. LastIndexOf(s[i+1])) + s[i+1] + s1. Substring(s1. LastIndexOf(s[i+1]));end;len := length(s1);max := 1;count := 0;for i:integer := 1 to len-1 do beginif (s1[i] = s1[i+1]) then count := count + 1else count := 0;if count > max then beginmax := count;maxC := s1[i];end;end;writeln(maxC);end.