Program MainSequence
  Implicit None
  Integer :: number=2, k, n
  Type Mytype
    Sequence    ! »ý·«°¡´É  ÁöÁ¤ÇÏÁö ¾Ê¾Æµµ ¼øÂ÷Àû Á¤ÀÇ
    Character(6) :: name
    Integer :: stdno
  End Type

  Type(Mytype) :: person(2)
  Do n=1,number
    Print *, ' Name  Id. No. '
    Read(*,*) person(n)
    Print *, person(n)
  End Do
  Print *, '  Name      Id. No. '
  write(*,'(2xA6,2x,I10)') person(:number)
End Program MainSequence