program Test; procedure Main(); const Delta: Extended = 0.000001; var X: Extended; Sum: Extended; begin X := -10.0; Sum := 0.0; repeat if X > 10.0 then Break; Sum := Sum + Exp(X); X := X + Delta; until False; WriteLn(Sum); end; begin Main(); end.