var n,ans,l,time:longint; a:array[1..81,1..3]of longint; c:array[1..27,0..9]of boolean; v:array[1..81]of longint; d,d2,d3:array[1..81]of longint; o:array[1..81]of longint;function max(a,b:longint):longint;begin
if a>b then exit(a) else exit(b);end;function min(a,b:longint):longint;begin |