program Project2; {$APPTYPE CONSOLE} uses SysUtils; var n,m,l,rez: int64; i: integer; begin { TODO -oUser -cConsole Main : Insert code here } assign(input,'problem.in'); reset(input); readln(n,m); assign(output,'problem.out'); rewrite(output); rez:=0; for i:=1 to n do begin rez:=rez+i; if rez mod m = 0 then inc(l); end; writeln(l); end.