Please convert this Psuedocode to Pascal Programming Language $!$

Start

Declare CustLn, CustFN, Prod$\_$type as string

Declare Cust$\_$ID as integer

Declare Contact $\_$num, Payment$\_$type as string

Declare Cust ID$,$ Quantity as integer

Read CustLN

Read CustFN

Read Product$\_$type

Read Cust ID

Read Contact$\_$num

Read Payment$\_$type

Read Product ID

Read Quantity

Processing

Cost$\_$Total$\_$ to be paid

$=$Amount$\_$after$\_$Discount $+$ GCT

Subtotal$=$Quantity x cost

If subtotal$>1000$ THEN

Discount$=$ Subtotal x $10/100$

Else

Discount$=0$

End if

Amount$\_$after$\_$Discount

Subtotal$=$ Discount

GCT$=15/100$ x Amount$\_$after$\_$Discount

Output

Write Total$\_$Amount$\_$Sales$-$Overall

Amount$\_$monry$\_$cash$\_$sales

Amount$\_$money$\_$card$\_$sales

Subtotal

Discount

No$\_$of$\_$Each Product

GCT

Amount$\_$after$\_$discount