Program Ex;
var
  a:array{0..100} of integer;
  b:array{0..9} of integer;
  i,mark,max:integer;
begin
  For i:=0 to 100 do
    a{i}:=0;
  For i:=0 to 9 do
    b{i}:=0;
  For i:=1 to 200 do
    begin
      writeln('Type a mark.');
      readln(mark);
      inc(a{mark});
      inc(b{(mark-1) div 10});
    end;
  For i:=100 downto 0 do
    writeln(a{i}, 'children got the mark: ',i);
 
  max:=0;
  For i:=1 to 9 do
    if a{i}>a{max} then
      max:=i;
  
  Writeln('the most common range is: ',max*10+1,'-',(max+1)*10);
End.