Информатика 9 класс. Напишите пожалуйста программку в Паскале(6 задание). Заблаговременно Спасибо!

Можно так

program dz;

var pon,vt,sr,cht,pt,sb,vs,temp:real;

begin

 writeln('Введите температуруgt;gt;');

 write('Пнgt;gt;');

 read(pon);

 write('Вторникgt;gt;');

 read(vt);

write('Средаgt;gt;');

read(sr);

write('Четвергgt;gt;');

 read(cht);

write('Пятницаgt;gt;');

 read(pt);

write('Субботаgt;gt;');

 read(sb);

write('Воскресеньеgt;gt;');

 read(vs);

 temp:=(pon+vt+sr+cht+pt+sb+vs)/7;

 write('Средняя температура за неделю:',temp:0:2);

end.