aclab3 pb5

module mul5bcd (
  input [3:0] i,
  output reg [3:0] d,
  output reg [3:0] u
);
    always @(*)
        u = (i*5) % 10;
    always @(*)
        d = ((i*5)/10) % 10;
endmodule

module mul5bcd_tb;
  reg [3:0] i;
  wire [3:0] d, u;

  mul5bcd mul5bcd_i (.i(i), .d(d), .u(u));

  integer k;
  initial begin
    $display("Time\ti\t\td\t\tu");
    $monitor("%0t\t%b(%4d)\t%b(%4d)\t%b(%4d)", $time, i, i, d, d, u, u);
    i = 0;
    for (k = 1; k < 10; k = k + 1)
      #10 i = k;
  end
endmodule