Подсчитать сумму чисел от 100 до 999 вывести результат В программе---- Pascal

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