Написать программу, которая вычисляет среднюю температуру воздуха за неделю. 

  • Вроде бы так
    program suma;
    var a,q,w,e,r,t,y,u:real;
    begin
    writeln('Введите температуру воздуха  понедельник');
    readln(q);
    writeln('Введите температуру воздуха  вторник');
    readln(w);
    writeln('Введите чесло температуру воздуха  среду');
    readln(e);
    writeln('Введите чесло температуру воздуха четверг');
    readln(r);
    writeln('Введите чесло температуру воздуха пятницу');
    readln(t);
    writeln('Введите чесло температуру воздуха субботу');
    readln(y);
    writeln('Введите чесло температуру воздуха воскресенье');
    readln(u);
    a:=((q+w+e+r+t+y+u)/(7));
    writeln(a);
    end.