Перевод с Паскаль на С++

[vebster12]

uses crt;
 
var
  m, k: byte;
 
begin
  write('m = ');
  readln(m);
  write('k = ');
  readln(k);
  while m >= k do
  begin
    m := m - k;
  end;
  writeln('Осталось ', m, ' руб.');
  readln;
 
end.