program breakeve;
uses crt;

{--------------------------------------------------------------------------

This program will compute the number of software packages a company needs to
sell in order to repay all of its expenses.

--------------------------------------------------------------------------}


VAR  a:real;

begin

clrscr;
textcolor (green);
writeln ('A software company sells its packaged software for $18.95 a piece.');
writeln ('The company has fixed expenses of $208,000 a year.');
writeln;
a := 208000 / 18.95;
writeln;
writeln;
textcolor (red);
writeln ('To break even, they must sell ',a:0:0,' packages');
writeln;
a := 208000 / 22.5;
writeln ('However, if they sold the packages for $22.50, then they would only');
writeln ('need to sell ',a:0:0,' packages');



readln;

end.