program Project2; {$APPTYPE CONSOLE} uses SysUtils; var n,m,k:integer;x,y:text; i:real; begin { TODO -oUser -cConsole Main : Insert code here } assign(x,'problem.in'); assign(y,'problem.out'); reset(x); reset(y); read(n,m); k:= (n mod m) ; i:=(n div m); if (n mod m)=k then write ('k'); if (n div m)=i then write ('0'); rewrite(y); close(x); close(y); end.