C++ :

#include<iostream>
using namespace std;
int main()
{
int m,k,i=0,x=0;
cin>>m>>k;
while(m>0)
{
m--;
i++;
if(i==k)
{
m++;
i=0;
}
x++;
}
cout<<x<<endl;
return 0;
}

Pascal :

program xx;
var m,k,day,num:integer;
    flag:boolean;
begin
read(m,k);
day:=0;
num:=0;
flag:=true;
while flag  do
  begin m:=m-1;
        day:=day+1;
        num:=num+1;
        if num=k then begin
                       num:=0;
                       m:=m+1;
                       end;
        if m=0 then flag:=false;
  end;
  writeln(day)
 end.