Можно так

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.