Write a program in Pascal, find the arithmetic mean temperature for a week

sum: real; // variable declaration.
i, t: integer; // declaration of variables of integer type.
writeln (‘Enter the temperature for each day of the week:’); // display the string to the screen.
for i: = 1 to 7 do // start of the cycle.
readln (t); // read the temperature value for the day.
sum: = sum + t; // calculate the sum of temperatures.
writeln (‘The arithmetic average temperature for the week is:’, round (sum / 7, 2)); // answer.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.