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

Question

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

Answer 1

Var
    i, s: integer;

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