найдите разность чисел от -5 до 28(Паскаль)

var    i, s: integer;begin    s := 0;    for i := -5 to 28 do        s := s - i;    writeln(s);end.