У меня получилось следующим образом:
n:=n+1;(*Счетчик количества итераций*)
sum:=sum+T;(*Т-температура , мгновенное значение на момент увеличения значения счетчика*)
SA:=sum/n;(*SA-среднее арифметическое*)