PROGRAM prik06;
{vypocita sumu (exp[-(i+0.5)/100]) od -100 do 100}
VAR
  sum : REAL;
  i  : INTEGER;
BEGIN
  {--- verze 1 ---}
  {sum := 0.0;
  FOR i:=-100 TO 100 DO BEGIN
    sum := sum + 1 + EXP(-(i+0.5)/100.0);
  END;}
  {--- verze 2 ---}
  sum := 100 - (-100) + 1;
  FOR i:= -100 to 100 DO BEGIN
    sum := sum + EXP(-(i+0.5)/100);
  END;
  WRITELN('Soucet je ',sum);
  WRITELN('Stisknete ENTER pro pokracovani');
  READLN;
END.