sum := 0; repeat slag := ; // вычисляешь следующее слагаемое sum := sum + slag; // общая сумма until slag <= e;