program heikin;
var
    p, sum, n, i: integer;
    av, s, total2: real;
    data: array[1..100] of integer;  { データを配列で保持 }
begin
    { 初期化 }
    n := 0;
    sum := 0;
 
    writeln('データの個数を入力してください:');
    readln(n);
 
    if n <= 0 then
    begin
        writeln('データがありません。');
        halt;
    end;
 
    writeln('データをスペース区切りで入力してください:');
    for i := 1 to n do
    begin
        read(data[i]);
        sum := sum + data[i];
    end;
 
    av := sum / n;
 
    total2 := 0.0;
    for i := 1 to n do
    begin
        total2 := total2 + sqr(data[i] - av);
    end;
 
    s := sqrt(total2 / n);
 
    writeln('合計 = ', sum, ' 件数 = ', n, ' 平均 = ', av:4:2, ' 標準偏差 = ', s:4:2);
end.
 

cHJvZ3JhbSBoZWlraW47CnZhcgogICAgcCwgc3VtLCBuLCBpOiBpbnRlZ2VyOwogICAgYXYsIHMsIHRvdGFsMjogcmVhbDsKICAgIGRhdGE6IGFycmF5WzEuLjEwMF0gb2YgaW50ZWdlcjsgIHsg44OH44O844K/44KS6YWN5YiX44Gn5L+d5oyBIH0KYmVnaW4KICAgIHsg5Yid5pyf5YyWIH0KICAgIG4gOj0gMDsKICAgIHN1bSA6PSAwOwoKICAgIHdyaXRlbG4oJ+ODh+ODvOOCv+OBruWAi+aVsOOCkuWFpeWKm+OBl+OBpuOBj+OBoOOBleOBhDonKTsKICAgIHJlYWRsbihuKTsKCiAgICBpZiBuIDw9IDAgdGhlbgogICAgYmVnaW4KICAgICAgICB3cml0ZWxuKCfjg4fjg7zjgr/jgYzjgYLjgorjgb7jgZvjgpPjgIInKTsKICAgICAgICBoYWx0OwogICAgZW5kOwoKICAgIHdyaXRlbG4oJ+ODh+ODvOOCv+OCkuOCueODmuODvOOCueWMuuWIh+OCiuOBp+WFpeWKm+OBl+OBpuOBj+OBoOOBleOBhDonKTsKICAgIGZvciBpIDo9IDEgdG8gbiBkbwogICAgYmVnaW4KICAgICAgICByZWFkKGRhdGFbaV0pOwogICAgICAgIHN1bSA6PSBzdW0gKyBkYXRhW2ldOwogICAgZW5kOwoKICAgIGF2IDo9IHN1bSAvIG47CgogICAgdG90YWwyIDo9IDAuMDsKICAgIGZvciBpIDo9IDEgdG8gbiBkbwogICAgYmVnaW4KICAgICAgICB0b3RhbDIgOj0gdG90YWwyICsgc3FyKGRhdGFbaV0gLSBhdik7CiAgICBlbmQ7CgogICAgcyA6PSBzcXJ0KHRvdGFsMiAvIG4pOwoKICAgIHdyaXRlbG4oJ+WQiOioiCA9ICcsIHN1bSwgJyDku7bmlbAgPSAnLCBuLCAnIOW5s+WdhyA9ICcsIGF2OjQ6MiwgJyDmqJnmupblgY/lt64gPSAnLCBzOjQ6Mik7CmVuZC4K

NQoxMCAyMCAzMCA0MCA1MA==

5
10 20 30 40 50