Var a,b,n,s,k:integer;
Begin
  Randomize;
  Read(n);
  k:=0;
  Repeat
  a:=random(100)-50;
  b:=random(100)-50;
  If (a<0) or (b<0) then k:=k+1;
  s:=a+b;
  Writeln(a:5,b:5,s:5);
  s:=0;
  Until k>=n;
End.