[cash]

вот так корректней

Код:

var s: real;
    j : integer;
begin
readln(j);
s:=(exp((j+1)*(-ln(1))))/(j*(j+1)*(j+2));
write (s:0:0);
readln;
end.

Админ: Пользуемся тегами, иначе последуют санкции!