Найти среднею температуру воздуха за неделю ( паскаль) программу напишите

 var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на  ',i,'день ');
read(n); k:=k+n;
end;
 a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.