Составить программу вычисления среднего арифметического первых 50 чисел много

Вычисляется среднее арифметическое первых 50 НАТУРАЛЬНЫХ чисел.
var i,s: integer;
begin
s:=0;
for i:=1 to 50 do s:=s+i;
writeln('s = ',s/50:4:1);
end.

Результат:
s = 25.5

Или так:
// Сумма первых n членов арифметической прогрессии S=(a1+an)/2*n
// Среднее арифметическое = S/n = (a1+an)/2
begin
 writeln((1+50)/2:4:1);
end.

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
//предполагаются первые 50 натуральных чисел
write('срзнач: ',range(1,50).Average);
end.