Подсчитать сумму чисел от 100 до 999 вывести результат в pascal

// PascalABC.NET 3.0, сборка 1128
begin
  Writeln('Сумма чисел от 100 до 999 равна ',Range(100,999).Sum)
end.

Тестовое решение:
Сумма чисел от 100 до 999 равна 494550