uses CRT ;
const
    A : array of real = (0.35, 0.48, 0.59, 0.4) ;
    B : array of real = (0.35, 0.55, 0.65, 0.8) ;
    C : array of real = (1.35, 1.48, 1.55, 1.6, 1.75) ;
    D : array of real = (3.1, 2.9, 3.25, 2.95, 3.4, 3.15) ;

procedure decide(arr: array of real) ;
var
    i, n : integer ;
    M, D, S : real ;
begin
    M := 0 ;
    D := 0 ;
    n := high(arr) ;
    for i := 0 to n do
        M := M + arr[i] ;
    M := M / n ;
    for i := 0 to n do
        D := D + sqr(arr[i]) ;
    D := D / n - sqr(M) ;
    S := sqrt(D) ;
    writeln('Математическое ожидание = ', M) ;
    writeln('Дисперсия = ', D) ;
    writeln('Среднее квадратичное значение = ', S) ;
end ;

begin
    decide(A) ;
    decide(B) ;
    decide(C) ;
    decide(D) ;
end.