program find_e;
const
MAX = 10000;
var
a, b, c, d: array [0..MAX] of byte;
e, f, g, h: word;
begin
f := MAX;
inline (
$FC/$8B/$1E/ f /$43/$32/$C0/$BF/
a /$8B/$CB/$F3/$AA/$BF/ b /$8B/
$CB/$F3/$AA/$BF/ d /$8B/$CB/$F3/
$AA/$83/$EB/$03/$C6/$87/ a /$01/
$C6/$87/ d /$02/$C6/$06/ b /$02/
$C7/$06/ g /$01/$00/$8B/$0E/ f /
$41/$BF/ c /$32/$C0/$F3/$AA/$A1/
f /$2B/$06/ g /$48/$A3/ h /$8B/
$36/ g /$46/$8B/$1E/ h /$4E/$8A/
$80/ a /$2A/$84/ b /$0A/$C0/$75/
$04/$0B/$F6/$75/$EF/$A8/$80/$74/
$06/$FF/$0E/ h /$EB/$28/$FE/$87/
c /$33/$F6/$8A/$80/ a /$2A/$84/
b /$88/$80/ a /$A8/$80/$74/$0B/
$80/$80/ a /$0A/$46/$FE/$88/ a /
$4E/$46/$3B/$36/ g /$76/$DE/$F7/
$06/ h /$00/$80/$74/$AC/$EB/$02/
$EB/$91/$33/$F6/$8A/$84/ c /$88/
$84/ a /$02/$84/ d /$88/$84/ d /
$3C/$0A/$72/$0C/$2C/$0A/$88/$84/
d /$46/$FE/$84/ d /$4E/$46/$3B/
$36/ f /$76/$D9/$FE/$06/ b /$33/
$F6/$B9/$01/$00/$80/$BC/ b /$0A/
$72/$0D/$C6/$84/ b /$00/$46/$FE/
$84/ b /$41/$EB/$EC/$39/$0E/ g /
$73/$04/$89/$0E/ g /$8B/$0E/ f /
$41/$32/$C0/$8B/$F1/$4E/$0A/$84/
a /$E2/$F7/$0A/$C0/$74/$02/$EB/
$98
);
write('e=2.');
for e := f-3 downto 0 do
write(char(ord('0') d[e]));
writeln;
end.
#TurboPascal #x86