program Zadacha; {$APPTYPE CONSOLE} uses SysUtils; var i,n,m,k:integer; s:int64; f1,f2:text; begin { TODO -oUser -cConsole Main : Insert code here } assign(f1,'problem.in'); assign(f2,'problem.out'); reset(f1); rewrite(f2); read(f1,n,m); s:=0; k:=0; for i:=1 to n do begin s:=s+i; if s mod m =0 then inc(k); end; writeln(f2,k); close(f1); close(f2); end.