S= (1-2)/2+(1-3)/2 + ... + (1-7)/2
РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ
ОООЧЕНЬ НАДО

begin

 Range(2, 7).Select(t -> (1 - t) / 2).Sum.Println;

end.