home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol019 / convert.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  614 b   |  24 lines
  1.  
  2. (*********************************************************************
  3. :
  4. :            CONVERT PROGRAM
  5. :    
  6. :    This was a class assignment in Introduction to Pascal.
  7. :  It allows you to enter the price of Gas per liter and the
  8. :  program will return the price of that gas per gallon.
  9. :
  10. :  June 30 1980            Charlie Foster
  11. :
  12. **********************************************************************)
  13.  
  14. PROGRAM convert;
  15.  
  16. VAR
  17.     price, pricepg : real;
  18. BEGIN
  19.     WRITE('Enter current price per liter of gasoline-->  ');
  20.     READLN(price);
  21.     pricepg := price * 3.78;
  22.     WRITELN('Price per gallon of gasoline=  ',pricepg)
  23. END.
  24.