Вычисление среднего арифметического чисел натурального ряда, начиная с 10 до 50 - Turbo Pascal

program pr;
var
i,sum:integer;
avg:real;
begin
sum:=0;
for i:=10 to 50 do sum:=sum+i;
avg:=sum/41;
{или avg:=(10+50)*20.5/41}
writeln('Среднее арифметическое чисел натурального ряда от 10 до 50: ',avg);
end.