Question

помогите пожалуйста.......

Answer 1

думаю так 
program temp;
var d,t:integer;
var s:real;
begin
s:=0;
for d:=1 to 7 do
begin
write(d,' день = ');
readln(t);
s:=s+t;
end;
s:=s/7;
writeln();
writeln('Средняя температура = ',s);
end.