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

var
sum: real; // variable declaration.
i, t: integer; // declaration of variables of integer type.
begin
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.
begin
readln (t); // read the temperature value for the day.
sum: = sum + t; // calculate the sum of temperatures.
end;
writeln (‘The arithmetic average temperature for the week is:’, round (sum / 7, 2)); // answer.
end.