type date=record
          day:1..31;
          month:1..12;
          year:integer
       end;

function Comp(a, b: date): integer; {0 - равны, 1 - первая дата больше, 2 - вторая дата больше}
var result: integer;
begin
  { Сравниваем года }
  if a.year > b.year then result:=1;
  if a.year < b.year then result:=2;
  if a.year = b.year then result:=0;
  { Сравниваем месяца }
  if result = 0 then
    begin
      if a.month > b.month then result:=1;
      if a.month < b.month then result:=2;
      if a.month = b.month then result:=0;
    end;

  { Сравниваем дни }
  if result = 0 then
    begin
      if a.day > b.day then result:=1;
      if a.day < b.day then result:=2;
      if a.day = b.day then result:=0;
    end;
  Comp:= result;
end;
var a, b: date;
begin
  { Описываем переменные }
  a.day:=11; a.month:=2; a.year:=2010;
  b.day:=10; b.month:=2; b.year:=2010;
  { End }
  
  writeln(Comp(a, b));
  readln;
end.