While3

## //while3
var n := ReadInteger;
var k := ReadInteger;
var cnt := 0;
var chastnoe := 0;
while n >= 0 do
  begin
    n -= k;
    cnt += 1;
  end;
Println('Частное:',cnt-1);
Print('Остаток:',n+k);