Var
   C : Byte;

Begin
 Randomize;
 For C := 1 to Random(45)+3 do Randomize;
 WriteLn(Random(6)+1);
End.