(*********************************************************************
:
:			CONVERT PROGRAM
:	
:	This was a class assignment in Introduction to Pascal.
:  It allows you to enter the price of Gas per liter and the
:  program will return the price of that gas per gallon.
:
:  June 30 1980			Charlie Foster
:
**********************************************************************)

PROGRAM convert;

VAR
	price, pricepg : real;
BEGIN
	WRITE('Enter current price per liter of gasoline-->  ');
	READLN(price);
	pricepg := price * 3.78;
	WRITELN('Price per gallon of gasoline=  ',pricepg)
END.