(i+j+k+m)/4 = среднее арифметическое
цифра 4 это сумма количества чисел
Function avg( i,j,k,m: float ): float; begin result := (i+j+k+m) / 4.0; end;