uses crt;var n,i:integer; y:real;begin clrscr; y:=1; write('n='); read(n); for i:=1 to n do y:=y*(1-(1/(exp(ln(n) * n; write ('y=',y);end.
uses crt;
var n,i:integer; y:real;
begin
clrscr;
y:=1;
write('n='); read(n);
for i:=1 to n do
y:=y*(1-(1/(exp(ln(n) * n;
write ('y=',y);
end.