const cb:array [0..9] of byte=($3F,$30,$6D,$79,$72,$5B,$5F,$31,$7F,$7B);var s0,s1,s2,s3,s4,s5,s6,s7,s8,s9:byte;
t:byte;
i:integer;begin i:=0; for s0:=0 to 9 do beginfor s1:=0 to 9 do if (s1s0) then begin t:=cb[s0] and cb[s1]; if (t=cb[s0])or(t=cb[s1]) then for s2:=0 to 9 do if (s2s0)and( |