Imports System
Public Module Module1
Public Sub Main()
Console.Write("enter your payment type ")
dim p as string
p=console.ReadLine()
if p="visa" then
console.WriteLine(" express or normal")
dim t as string=console.ReadLine()
if t="express" then
console.WriteLine("10 kd")
else
console.WriteLine("0 kd")
if p="paypal" then
console.WriteLine("choose d type")
dim z as string=console.ReadLine()
if z="normal" then
console.WriteLine("56")
console.WriteLine(" 98")
end if
End Sub
End Module
