Modulo II

Código de Programa de Sistema de Descuento por Etiqueta Diseñado en Pascal. 

Program etiqueta;
Uses
    Crt;
var
a,c,d: Real;
b: String;
Begin
Clrscr;
     Write('Precio del Producto: '); Readln(a);
     Write('Color de la Etiqueta: '); Readln(b);

     If (b='Blanco') then
      Begin
        Writeln('No tiene descuento');
        Writeln('Total a Pagar', a);
      End
     Else If (b='Verde') then
      Begin
        c:=a*0.10;
        d:=a-c;
        Writeln('Descuento del 10%');
        Writeln('Total a Pagar', d);
      End
     Else If (b='Amarillo') then
      Begin
        c:=a*0.25;
        d:=a-c;
        Writeln('Descuento del 25%');
        Writeln('Total a Pagar', d);
      End
     Else If (b='Azul') then
      Begin
        c:=a*0.5;
        d:=a-c;
        Writeln('Descuento del 50%');
        Writeln('Total a Pagar', d);
      End
     Else If (b='Roja') then
      Begin
        Writeln('Descuento del 100%');
        Writeln('Tu Compra es Gratis');
      End;
Readkey;
End.

Sistema de Compra Por Cedula