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

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.