a retail shop offers discounts to its customers according to the following rules:

purchase amount >=ksh. 10000- give 10% discount on the amount
ksh. 5000<=purchase amount <ksh. 10000- give 5% discount on the amount
ksh. 3000<=purchase amount <= ksh. 5000- give 3% on the amount
0<purchase amount <ksh. 3000- pay full amount.
write a flowchart and Pascal program code that asks for the customers purchase amount, then use if statements to recommend the appropriate payable amount

Sure! I'll provide you with a flowchart and a Pascal program code that meets your requirement:

Flowchart:
```
Start
|
Input purchase amount
|
|
|-------| purchase amount >= 10000
| |
| |
| Give 10% discount
| |
| |
| Calculate payable amount
| |
|---------------------
|
|-------| purchase amount >= 5000 and < 10000
| |
| |
| Give 5% discount
| |
| |
| Calculate payable amount
| |
|---------------------
|
|-------| purchase amount >= 3000 and < 5000
| |
| |
| Give 3% discount
| |
| |
| Calculate payable amount
| |
|---------------------
|
|-------| purchase amount > 0 and < 3000
| |
| |
| Pay full amount
| |
| |
| Calculate payable amount
| |
|---------------------
|
End
```

Pascal program code:
```pascal
program RetailShopDiscount;

var
purchaseAmount, payableAmount: real;

begin
writeln('Welcome to the Retail Shop!');
write('Enter the purchase amount (in Ksh): ');
readln(purchaseAmount);

if purchaseAmount >= 10000 then
begin
payableAmount := purchaseAmount * 0.9; // 10% discount
writeln('You are eligible for a 10% discount.');
end
else if purchaseAmount >= 5000 then
begin
payableAmount := purchaseAmount * 0.95; // 5% discount
writeln('You are eligible for a 5% discount.');
end
else if purchaseAmount >= 3000 then
begin
payableAmount := purchaseAmount * 0.97; // 3% discount
writeln('You are eligible for a 3% discount.');
end
else
begin
payableAmount := purchaseAmount; // No discount
writeln('No discount available for this purchase amount.');
end;

writeln('The payable amount is: Ksh ', payableAmount:0:2);
end.
```

To use this program, you need to have a Pascal compiler installed on your computer. You can copy the program code into a text file with a `.pas` extension (e.g., `retail_shop_discount.pas`). Then, you can compile and run the program using a Pascal compiler. After entering the purchase amount, the program will recommend the appropriate payable amount based on the discount rules.