Можно так
program dz;
var pon,vt,sr,cht,pt,sb,vs,temp:real;
begin
writeln('Введите температуру>>');
write('Понедельник>>');
read(pon);
write('Вторник>>');
read(vt);
write('Среда>>');
read(sr);
write('Четверг>>');
read(cht);
write('Пятница>>');
read(pt);
write('Суббота>>');
read(sb);
write('Воскресенье>>');
read(vs);
temp:=(pon+vt+sr+cht+pt+sb+vs)/7;
write('Средняя температура за неделю:',temp:0:2);
end.