найти среднее арифметическое значение от Pi/8 до пи с шагом пи/8

program zz1;

var x, y:real; / / задаем переменные не целого типа

k:integer; / / задаем переменную целого типа

begin

x:=pi / 8; / / задаем начальное значение х

while x < = pi do / / организуем цикл, пока х не достигнет пи

begin

y:=y + x; / / вычисляем значение по заданной формуле

k:=k + 1; / / считаем количество слагаемых

x:=x + pi / 8; / / увеличиваем х на шаг

end;

writeln (' среднее арифметическое значение от Pi/8 до пи с шагом пи/8 = ', y / k:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.