Информатика, написать программку на языке паскаль, найти среднеарифмитическую температуру за неделю

var
    sum : real; // объявление переменной.
    i, t : integer; // объявление переменных целочисленного типа.
begin
    writeln (Введите температуру за каждый денек недели:); //вывод строки на экран.
      for i := 1 to 7 do // начало цикла.
        begin
          readln(t); // считываем значение температуры за день.
          sum := sum + t; // считаем сумму температур.
end;
writeln(Средняя арифметическая температура за неделю одинакова: , round(sum / 7, 2));// ответ.
end.