Написать программу в Паскале, которая считает среднюю успеваемость учащегося.
Для расчета у пользователя спрашивают:
1. Введите оценку по математике/русскому/физике/химии/биологии.

var a, b, c, d, e: byte;  ArithMean: real;beginwrite('Введите оценку по математике: '); readln(a);write('Введите оценку по русскому языку: '); readln(b);write('Введите оценку по физике: '); readln(c);write('Введите оценку по химии: '); readln(d);write('Введите оценку по биологии: '); readln(e);ArithMean := (a+b+c+d+e)/5;writeln('Средняя балл = ', ArithMean);end.