S= (1-2)/2+(1-3)/2 + ... + (1-7)/2 РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ ОООЧЕНЬ НАДО
begin
Range(2, 7).Select(t -> (1 - t) / 2).Sum.Println;
end.
Ответ -10.5