Var
   C : Byte;

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