{* Задача330 *}

REM basic

' Известны даты рождения 2х человек, определить кто старше по количеству полных лет.


{Известны даты рождения 2х человек, определить кто старше по количеству полных лет.
}{QBasic, lamed, 21.05.2011
} 
Dim y1 As Integer, m1 As Integer, d1 As Integer
Dim y2 As Integer, m2 As Integer, d2 As Integer
Dim y As Integer, m As Integer, d As Integer
Dim dy1 As Integer, dy2 As Integer
 
  INPUT y1
  INPUT m1
  INPUT d1
 
  INPUT y2
  INPUT m2
  INPUT d2
 
  INPUT y
  INPUT m
  INPUT d
 
  dy1 = y - y1
  If (m < m1) Or (m = m1) And (d < d1) Then
    dy1 = dy1 - 1
  End If
 
  dy2 = y - y2
  If (m < m2) Or (m = m2) And (d < d2) Then
    dy2 = dy2 - 1
  End If
 
  If dy1 > dy2 Then
    PRINT "1й старше"
  ElseIf dy1 < dy2 Then
    PRINT "2й старше"
  Else
    PRINT "Одинаково по количеству полных лет"
  End If
End