program wheat;

{ This program calculates the productivity of wheat harvested in a given period of time. Input is ounces of wheat harvested per square meter per growing season. Output is Yield in grams, total kcalories produced and kcalories kcal/day/m^2. Please keep a current copy of this program on the web site: e:\www\isecco\projects\celss\gardens\wheat.htm }

var oz,gm: real;

kday,kcal,days: real;

begin

write('Enter number of days from planting to harvest: ');

readln(days);

write('How many ounces were harvested? ');

readln(oz);

repeat

gm:=oz*28.35;

kcal:=gm*400/120;

kday:=kcal/days;

writeln('Yield: ',gm:6:2,' Kcal produced: ',kcal:8:2,' Kcals/day/m2: ', kday:8:2);

writeln; writeln;

write('How many ounces were harvested (<0 to end)? ');

readln(oz);

until oz<0;

end.