Var I: Integer;
    A: PInteger=@I;
Begin
 For I := 0 To 50 Do
 Begin
  Writeln(I);
  A^ += 9;
 End;
 Readln;
End.