Задали по информатике в pascal : на вход программы сведения о температуре за первую неделю сентября. составить программу, определяющую среднюю температуру за первую неделю сентября. разрешается использовать не более трёх переменных в программе.

Var
t,st:real;
i:integer;
begin
for i:=1 to 7 do begin
readln(t);
st:=st+t;
end;
writeln('Средняя температура за первую неделю сентября: ',st/7,' °C');
end.