18 ! в pascal найти разность чисел в промежутке то -15 до 4 сделать с !

Получилось: 80

Var
  r,i : Integer;
Begin
  i:=-14;
  r:=-15;
  Repeat
    r:=r-i;
    Inc(i);
  Until i>4;
  Writeln(r);
end.