Определить суммарную температуру в течении заданных дней

function Printf<T>(Self: sequence of T; delim: string): sequence of T; extensionmethod;  //Можно убрать, а в вызове поставить .print(delim)
begin
  var g := Self.GetEnumerator();
  var Counter: integer:= 0;
  while g.MoveNext() do
    begin
      if delim <> ''
        then
          write(delim + Counter.ToString() + ' = ' + g.Current.ToString() + #10);
      Counter += 1;
    end;
  Result := Self;
end;
begin
  var Mass:= Range(1, ReadInteger('Введите количество дней наблюдений: ')).Select((x, i) -> ReadReal('Введите температуру за ' + i.ToString + ' день: ')).ToArray.Printf('Температура в день ');
  Writeln('Суммарная температура за эти дни = ', Mass.Sum(), '   |   Средняя температура за эти дни = ', Mass.Average());
end.

program temperature;
var  dney,sum : integer;
     temperature: array of integer; 
begin
dney:= ReadInteger('Введите количество дней наблюдений: ');
setLength(temperature, dney+1);
for var i:=1 to dney do
 begin
  temperature[i]:=ReadInteger('Введите температуру за '+i+' день:');
  sum+=temperature[i];
 end;
Writeln('Суммарная температура за эти дни = ', sum , '   |   Средняя температура за эти дни = ', (sum/high(temperature)));
end.

begin
  var Mass:= Range(1, ReadInteger('Введите количество дней наблюдений: ')).Select((x, i) -> ReadReal('Введите температуру в ' + i.ToString + ' день: ')).ToArray;
  for var i:= 0 to Mass.Length - 1 do
    System.Console.WriteLine('Температура в {0} день = {1}', i, Mass[i]);
  System.Console.WriteLine('Суммарная температура за эти дни = {0}{2}Средняя температура за эти дни = {1}', Mass.Sum(), Mass.Average(), #10);
end.

begin
  var a:=ReadArrReal('Введите температуры:',ReadInteger('Введите количество дней наблюдения'));
  a.Select((i,j)->format('{0} день температура ={1} градусов',j+1,i)).Println(newline);
  writelnformat('Суммарная температура в течении этих дней:{0};средняя температура за эти дни:{1:0.##}',a.Sum(),a.Average());
end.