%These are the variables in the program that will change as we go

var total : real := 0  %What the total price without the tax or discount will be stored in
var totalWithDiscount : real  %What the total will be after the discount
var totalWithTax : real  %Then what it will be after taxes
var product : int  %What the customer wants to buy
var productList : string := ""  %What we will list our products in
var amount : int  %How much of a product we want to buy

%These are the constants, variables that will always remain the same

const cornPrice : real := 2.25  %The price of corn
const potatoPrice : real := 6.50  %The price of potatoes
const artichokePrice : real := 1.75  %The price of artichokes
const gst : real := 0.08  %Our gst
const pst : real := 0.06  %Our pst

%Actual program

put "Welcome to my Grocery Store!"  %Initial welcome into the store...no need to repeat it
loop
    put "Enter product (1=Corn, 2=Potatoes, 3=Artichokes, 4=Quit): " ..  %Prompt for product
    get product  %Get product
     if product = 1 then %if product 1   
        put "How many of them would you like?" %Prompt for number of product
        get amount %Get amount
        total := total + (2.25 * amount) % This is your total so far plus the price of item selected x number of item selected
        productList := productList + "Corn x " + intstr (amount) + " \n"  %This says to add Corn x  amount of corn selected(we use intstr(amount) to turn amount into a string)
                                                                          %And put \n to tell turing to jump to the next line(kinda like pressing enter when your typing)
    elsif product = 2 then  %This
        put "How many of them would you like?" 
        get amount 
        total := total + (6.50 * amount) 
        productList := productList + "Potatoes x " + intstr (amount) + " \n" 
    elsif product = 3 then                                                                             
        put "How many of them would you like?"                                                             
        get amount                                                                                         
        total := total + (1.75 * amount)                                                                   
        productList := productList + "Artichokes x " + intstr (amount) + " \n" %to this Is all same as it was up there /\
    elsif product = 4 then  % Exit if 4 is pressed
        exit
    end if
    put "The running total is $", total : 0 : 2  %This puts running total after every item adde to list
end loop

totalWithDiscount := total - (total * 0.10) %Now that customer is done buying add up the total after the discount
totalWithTax := totalWithDiscount + (totalWithDiscount * gst) + (totalWithDiscount * pst) %And then with taxes

put "--------------------------"
put "Bought : " %Now display what was bought
put productList %---------------------------
put "Total : $", total : 0 : 2 %What there total is before taxes and discount
put "10% Discount: $", total * 0.10 : 0 : 2 %How much is the discount
put "GST: $", total * gst : 0 : 2 %The gst total
put "PST: $", total * pst : 0 : 2 %The pst total
put "--------------------------"
put "Final Total: $", totalWithDiscount : 0 : 2 %What the final total is after taxes and discount