: The Cluck Egg Company has different prices for their eggs, based
: upon the number sold:
: 0 up to but not including 4 dozen: $0.50 per dozen
: 4 up to but not including 6 dozen: $0.45 per dozen
: 6 up to but not including 11 dozen: $0.40 per dozen
: 11 or more dozen : $0.35 per dozen
: *Extra eggs are priced at 1/12 the per dozen price each
:
: Write a program that allows the user to input the number of eggs
: wanted, and then calculates the bill. Example of Output:
:
: Enter number of eggs: 126
:
: Purchase: 10 dozen and 6 extra eggs
: Your bill comes to $ 4.20
:
:
: This program uses if, then, and else. I know how to do this problem,
: its just I don't know how to put it into a program effectively.
:
: If anybody could help me with this, it would be much appreciated.
:
Good day firstly I think ur post would have been more appropriate in the pascal forum.

Never the less here is the code that would do it the best.

Program EggQoute
Uses Crt;

Var
N,Dozen : Integer;
PricePDozen, PricePerEgg, Price : Real;

Begin
Writeln('How many eggs do u want: ');
Readln(N);

Dozen = N div 12;

Writeln;
Case Dozen of
0..3 : PricePerDozen := 0.5;
4..5 : PricePerDozen := 0.45;
6..11 : PricePerDozen := 0.4;
Else PricePerDozen := 0.35;

PricePerEgg := PricePerDozen /12;

Price := PricePerEgg * N;

Writeln('The total cost of your eggs will be: ',Price:2:2);
Readln;
End;


Darkwing Duck aka DWduck signing off :)