Найти среднее арифметическое трёхзначных чисел. составить программу в pascal.

Program n1;
var i,sum: longint;
begin
sum:=0;
for i:=100 to 999 do sum:=sum+i;
write('срзнач: ',sum/900);
end.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(100,999).Average.Println
end.

Результат
549.5