Написать программу на паскаль остывание предмета до комнатной температуры после того как его вытащили из кипятка (шаг по времени не задается ,а задается интервал)

var   i: integer;   x, sum: real;   begin   sum := 0;   for i := 1 to 7 do   begin     Readln(x);     sum := sum + x;   end;     Writeln('Average: ', sum / 7); end.