感動

program tekitou;

var e:real;

    a:integer;

begin

  e:=1.0000000001;

    for a:=1 to 10000000 do begin

        e:=e*1.0000001;

    end; 

  write(e:100:80);

end.

こんなんやったらe=2.71828・・・
とかいう感動的な結果が出ました。
でもどっかの数値を１桁でも減らしたり増やしたりすると全然違う結果が出ます。ｗ
もっとfor文の中の実行回数を増やしたりしてみたいけど、うちのPCでは時間がかかりすぎてしまいまふ。