program StudentStatistics;

{ Free Pascalで最も標準的な構成です }
const
  N = 10;

var
  scores: array[1..10] of Integer;
  i, j, temp, sum, passCount, maxScore: Integer;
  avg, stdDev, median: Double;
  varianceSum: Double;

begin
  { データの初期化 }
  scores[1] := 85; scores[2] := 72; scores[3] := 90; scores[4] := 60; scores[5] := 45;
  scores[6] := 95; scores[7] := 78; scores[8] := 55; scores[9] := 88; scores[10] := 70;

  sum := 0;
  passCount := 0;
  maxScore := 0;

  { 集計 }
  for i := 1 to N do
  begin
    sum := sum + scores[i];
    if scores[i] >= 60 then passCount := passCount + 1;
    if scores[i] > maxScore then maxScore := scores[i];
  end;
  avg := sum / N;

  { ソート (中央値計算のため) }
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if scores[i] > scores[j] then
      begin
        temp := scores[i];
        scores[i] := scores[j];
        scores[j] := temp;
      end;
  
  median := (scores[5] + scores[6]) / 2;

  { 標準偏差 }
  varianceSum := 0;
  for i := 1 to N do
    varianceSum := varianceSum + (scores[i] - avg) * (scores[i] - avg);
  stdDev := sqrt(varianceSum / N);

  { 結果出力 }
  writeln('Average: ', avg:0:2);
  writeln('Median: ', median:0:1);
  writeln('Max: ', maxScore);
  writeln('StdDev: ', stdDev:0:2);
  writeln('Pass Count: ', passCount);
end.