program olimpiada;
 var i, s : longint;
begin
  s := 0;
  for i := 1896 to 2011 do
    begin
        if i mod 4 = 0 then
            begin
                s := s + 1;
                WriteLn( i , 'm.' , ' ivyko ' , s , ' olimpiada' );
            end;
    end;
  WriteLn( '=======================================' );
  WriteLn( 'Jau ivyko ' , s , ' olimpiada' );
  Readln;
end.

program Visi_dvizenkliai_skaiciai;
 
 var i, d, n : integer;
     a, b, sum : integer;
begin
  d := 0;
  n := 0;
  for i := 10 to 99 do
   begin
      a := i div 10;
      b := i mod 10;
      sum := a + b;
      if i mod sum = 0 then d := d + 1
                       else n := n + 1;
   end;
  WriteLn( d , ' dviženkliai(-ių) skaičiai(-ių) dalinasi iš jų skaitmenų sumos'  );
  WriteLn( n , ' dviženkliai(-ių) skaičiai(-ių) nesidalinasi iš jų skaitmenų sumos'  );
  Readln;
end.