C premier programme cours F77 P. TRAU
	program premprog
	implicit none
	integer nb
	real pu,pt
	print *,'combien de pièces ?'
	read *,nb
	print *,'prix unitaire ?'
	read *,pu
	pt=pu*nb
	print *,'cela fera ',pt,' en tout'
	stop
	end program premprog