Venta de un medicamento en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular y mostrar por la pantalla del computador el total por venta de un medicamento, en donde se debe ingresar el precio y la cantidad de medicamentos vendidos por el teclado del computador y mostrar el resultado total de la venta realizada.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program VentaDeUnMedicamento;

uses crt;

var cantidad_de_medicamentos, precio_del_medicamento, resultado_total : real;

begin

    write ('Ingresa el valor de cantidad de medicamentos: ');

    readln (cantidad_de_medicamentos);

    write ('Ingresa el valor de precio del medicamento: ');

    readln (precio_del_medicamento);

    resultado_total := precio_del_medicamento*cantidad_de_medicamentos;

    writeln ('Valor de resultado total: ', resultado_total:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.