Descuento por cada producto en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se desea conocer el monto de pago por la compra de un producto; por cada producto se debe ingresar el nombre, su precio y su descuento; Se debe mostrar el nombre del producto ingresado, el monto de pago del producto y el monto del descuento.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

program DescuentoPorCadaProducto;

uses crt;

var descuento, monto_de_pago, monto_del_descuento, precio_del_producto : real;

var nombre_del_producto : string;

var tecla_repetir : char;

begin

    repeat

        clrscr;

        write ('Ingresa el nombre del producto: ');

        readln (nombre_del_producto);

        write ('Ingresa el valor de descuento: ');

        readln (descuento);

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

        readln (precio_del_producto);

        monto_del_descuento := descuento*precio_del_producto/100;

        monto_de_pago := precio_del_producto-monto_del_descuento;

        writeln ('Nombre del producto: ', nombre_del_producto);

        writeln ('Valor de monto de pago: ', monto_de_pago:0:6);

        writeln ('Valor de monto del descuento: ', monto_del_descuento:0:6);

        writeln;

        write (#168'Deseas repetir el proceso? (S/N): ');

        repeat

            tecla_repetir := readkey;

        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');

    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');

end.