program main
    implicit none 
    integer :: x,y,p,product,i 
    product = 0 
    print*,"enter the numbers"
    read*, x,y 
    if (x>0) p = x 
    if (x<0) p= -x 
    do i=1 , p,1 
    product = product +y 
    end do 
    print*, "the product", product 
    
end program main