P__3_E_5

=__**Coste de un producto incluyendo el IVA**__= > > **Programa que lee el coste de un producto y el IVA a aplicar y calcula el total a pagar.**

code format="pascal" PROGRAM Pagina_3_Ejercio_5 ; VAR rPrecioNeto, rPrecioPagar : Real ; rIVA                     : Real ; BEGIN Writeln ; Write ('           Escribe el precio del producto: ') ; Readln (rPrecioNeto) ; Write (' Escribe el IVA que le corresponde (en %): ') ; Readln (rIVA) ;

Writeln ;

rPrecioPagar := rPrecioNeto * (1 + rIVA / 100) ;

WriteLn ('                          Total a pagar: ', rPrecioPagar : 0: 2,            ' (' , rIVA:0:1, '% IVA incluido)') ;

ReadLn ; END. { FIN del PROGRAMA } code