VAR arr: array[1..5] of integersum, average: realBEGINreadln(arr[1], arr[2], arr[3], arr[4], arr[5]);
END.
VAR arr: array[1..5] of integer
sum := arr[1] + arr[2] + arr[3] + arr[4] + arr[5];sum, average: real
BEGIN
readln(arr[1], arr[2], arr[3], arr[4], arr[5]);
average := sum / 5;
writeln('Среднее арифметическое: ', average);
END.