PROGRAM prik07;
{vytvori tabulku hodnot exp(-N/(1+N)) na 4 desetinna mista}
VAR
  fn : REAL;
  n  : INTEGER;
BEGIN
  FOR n:=0 TO 10 DO BEGIN
    fn := EXP(-n/(1+n));
    WRITELN(n:5,fn:10:4);
  END;
  WRITELN('Stisknete ENTER pro pokracovani');
  READLN;
END.