Var
 a1,d,N,S:Word;

Begin
 Write('a1 = '); Readln(a1);
 Write('d = '); Readln(d);
 S:=a1;
 N:=1;
 Writeln('N = ',N:5,'   S = ',S:5);
 Repeat
  if S<=65535-d then
   begin
    S:=S+d;
    N:=N+1;
    Writeln('N = ',N:5,'   S = ',S:5);
   end;
 Until S>65535-d;
 Readln
End.