Turbo Pascal: Programm für Eulersche Zahl!

Zitat:
program eulersche_Zahl;
{$N+}
uses crt,dos;
var e:extended; n:extended;

begin
writeln(`Bitte fortlaufend Enter_Taste druecken`);
n:=1;
repeat
n:=n*2;
e:=exp((n)*ln((1+1/n)));
writeln(e:2:25);
readln;
until n=exp(60*ln(2));
readln;
end.