PROGRAM ATCODER

implicit none
integer :: n,k,x,y,ans,i

read(*,*) n,k,x,y    !ここが入力欄

! ここに計算式
ans = 0
do i = 1, n
	if(i <= k)then
		ans = ans + x
	else
		ans = ans + y
	end if
end do

! ここに出力結果
write(*,'(i0)') ans

END PROGRAM ATCODER