program ya;
uses wincrt;        
var  score : array [1..40] of integer;
     i,min,max,max_p,min_p : integer;
     mean : real;
begin
  max := -32768;
  min := 32767;
  mean := 0;
  for i:=1 to 10 do
    begin
      write('Enter the score of the ',i,' student.');
      readln(score[i]);
      if score[i]>max then
        begin
          max := score[i];
          max_p := i;
        end;
      if score[i]<min then
        begin
          min := score[i];
          min_p := i;
        end;
      mean := mean + score[i];
    end;
  writeln('The Max. score is ',max,'. Student ',max_p,' get this mark.');
  writeln('The Min. score is ',min,'. Student ',min_p,' get this mark.');
  writeln('The mean of all score is ',mean/i:0:2,'.');
end.