program GradeStatistics;

uses Math;

const
  N = 10;

var
  score: array[1..N] of Real;
  sorted: array[1..N] of Real;
  deviation: array[1..N] of Real;
  i, j, pass: Integer;
  sum, avg, median, maxv, minv, std, temp: Real;

begin
  sum := 0;
  pass := 0;

  for i := 1 to N do
  begin
    ReadLn(score[i]);
    sorted[i] := score[i];
    sum := sum + score[i];

    if score[i] >= 60 then
      Inc(pass);
  end;

  avg := sum / N;

  maxv := score[1];
  minv := score[1];

  for i := 2 to N do
  begin
    if score[i] > maxv then
      maxv := score[i];
    if score[i] < minv then
      minv := score[i];
  end;

  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if sorted[i] > sorted[j] then
      begin
        temp := sorted[i];
        sorted[i] := sorted[j];
        sorted[j] := temp;
      end;

  median := (sorted[5] + sorted[6]) / 2;

  std := 0;
  for i := 1 to N do
    std := std + Sqr(score[i] - avg);

  std := Sqrt(std / N);

  WriteLn('Average : ', avg:0:2);
  WriteLn('Median  : ', median:0:2);
  WriteLn('Max     : ', maxv:0:0);
  WriteLn('Min     : ', minv:0:0);
  WriteLn('Std Dev : ', std:0:2);
  WriteLn('Pass    : ', pass);

  WriteLn;
  WriteLn('Deviation Values');

  for i := 1 to N do
  begin
    if std <> 0 then
      deviation[i] := 50 + 10 * (score[i] - avg) / std
    else
      deviation[i] := 50;

    WriteLn('Student ', i:2, ' : ', deviation[i]:0:2);
  end;

end.program GradeStatistics;

uses Math;

const
  N = 10;

var
  score: array[1..N] of Real;
  sorted: array[1..N] of Real;
  deviation: array[1..N] of Real;
  i, j, pass: Integer;
  sum, avg, median, maxv, minv, std, temp: Real;

begin
  sum := 0;
  pass := 0;

  for i := 1 to N do
  begin
    ReadLn(score[i]);
    sorted[i] := score[i];
    sum := sum + score[i];

    if score[i] >= 60 then
      Inc(pass);
  end;

  avg := sum / N;

  maxv := score[1];
  minv := score[1];

  for i := 2 to N do
  begin
    if score[i] > maxv then
      maxv := score[i];
    if score[i] < minv then
      minv := score[i];
  end;

  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if sorted[i] > sorted[j] then
      begin
        temp := sorted[i];
        sorted[i] := sorted[j];
        sorted[j] := temp;
      end;

  median := (sorted[5] + sorted[6]) / 2;

  std := 0;
  for i := 1 to N do
    std := std + Sqr(score[i] - avg);

  std := Sqrt(std / N);

  WriteLn('Average : ', avg:0:2);
  WriteLn('Median  : ', median:0:2);
  WriteLn('Max     : ', maxv:0:0);
  WriteLn('Min     : ', minv:0:0);
  WriteLn('Std Dev : ', std:0:2);
  WriteLn('Pass    : ', pass);

  WriteLn;
  WriteLn('Deviation Values');

  for i := 1 to N do
  begin
    if std <> 0 then
      deviation[i] := 50 + 10 * (score[i] - avg) / std
    else
      deviation[i] := 50;

    WriteLn('Student ', i:2, ' : ', deviation[i]:0:2);
  end;

end.