program aastaarvud;
  const algaasta=1900;
        loppaasta=2000;
  var f: text;
  var i: integer;
  var kogus: integer;
  var aasta: integer;
  var vahim, vahimaloendur: integer;
  var algus: boolean;
  var aastaloendur: array[algaasta..loppaasta] of integer;
  var kymnendid: array[190..200] of integer;

procedure trykiSuurimadAastakaigud;
 var aastanr: integer;
 var maxinimesiaastas: integer;
begin
 maxinimesiaastas:=0;
 for aastanr:=algaasta to loppaasta do begin
    if aastaloendur[aastanr]>maxinimesiaastas then
         maxinimesiaastas:=aastaloendur[aastanr];
 end;
 for aastanr:=algaasta to loppaasta do begin
    if aastaloendur[aastanr]=maxinimesiaastas then
      writeln('enim: ', aastanr);
 end
end;

begin
  assign(f, 'synniaastad.txt');
  reset(f);
  algus:=true;
  while not eof(f) do begin
    read(f, aasta);
    inc(aastaloendur[aasta]);
    inc(kymnendid[aasta div 10]);
    if algus then begin
      vahim:=aasta;
      vahimaloendur:=1;
      algus:=false;
    end
    else begin
       if vahim=aasta then vahimaloendur:=vahimaloendur+1;
       if vahim>aasta then begin
          vahim:=aasta;
          vahimaloendur:=1;
       end
    end;
    if aasta=1987 then kogus:=kogus+1;
  end;
  writeln(kogus);
  writeln(vahim);
  writeln(vahimaloendur);
  trykiSuurimadAastakaigud;
  for i:=190 to 200 do begin
     writeln(i*10,' ', kymnendid[i]:5);
  end;
  close(f);
end.