Составить программу вычисления среднего арифметического первых 50 чисел СРОЧНО МНОГО БАЛЛОВ

Вычисляется среднее арифметическое первых 50 НАТУРАЛЬНЫХ чисел.var i,s: integer;begins:=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)/2begin writeln((1+50)/2:4:1);end.

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