Program trololo; var k,d,r,s:integer; Begin ReadLn(k,d); r:=k div d; s:=k mod d; WriteLn('Если разделить ',k,' на ',d,'Получится ',r,'(остаток ',s,')'); end.