Const
  V=300;
  P=30;
Var
  I:Word;
  Prv:Word;
Begin
  Randomize;
  Assign(Output,'post.in');
  ReWrite(Output);
  WriteLn(V,' ',P);
  Prv:=0;
  For I:=1 To V Do Begin
    If Prv>0 Then Write(' ');
    Inc(Prv,Random(30)+1);
    Write(Prv);
  End;
  WriteLn;
  Close(Output);
End.