{
Descripcion: Dado el precio de un articulo y la cantidad de articulos,
determinar el subtotal, iva y total.
www.mis-algoritmos.com
}
uses
	crt;{Cargamos libreria de la pantalla}
var
	precio, iva, costo,	subtotal, total	: real;
	cantidad							: integer;
begin
	clrscr;{Limpiamos pantalla}
	write('Precio; ');{Salida en pantalla}
	readln(precio);{Entrada desde el teclado}
	write('Cantidad: ');{Salida en pantalla}
	readln(cantidad);{Entrada desde el teclado}
	iva:=precio*0.15;{Evaluam iva 15%}
	costo:=precio+iva;{Agrega iva al precio}
	subtotal:=precio*cantidad;{Evaluamos subtotal}
	iva:=cantidad*iva;{Evalua iva total a cobrar}
	total:=costo*cantidad;{Evalua el total de la compra}
	writeln;{Espacio en blanco (Enter)}
	writeln('Subtotal: ',subtotal:0:2);{Salida en pantalla}
	writeln('I.V.A.: ',iva:0:2);{Salida en pantalla}
	writeln('Total: ',total:0:2);{Salida en pantalla}
	readkey;{Esperamos una tecla para finalizar}
end.