прогрессия Опции

[BUGerKola]

люди!! помогите составить
S=-1+2^1/2-3^1/2+4^1/2....-13^1/2+14^1/2.
пояснения:
запись к примеру 3^1/2 равносильна = корню из 3.

И ещё. Ваапще не понимаю.
Как определить дату следующего дня+квартал(с использованием перечисляемого типа).
Подскажите плиззз +)

[klem4]

Да, ты прав :yes:, вот более короткое решение :

   for i := 1 to 14 do
    if odd(i) then
     s := s-sqrt(i)
    else s := s+sqrt(i);