Modullo III

Sistema de Compra por Terminales de Cédula Diseñado en Pascal.

Program fecha;
Uses
    Crt, Dos;
Const
     nombre: array[0..6] of String[15]=('Domingo','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado');
     cedula= 19025850;
     dia1=1;
Var
   ano, mes, dia, diaSem: Word;
   ultcom,numced: Integer;
Begin
  ClrScr;
     GetDate(ano,mes,dia,diaSem);
     Writeln('.::. Bienvenidos al Sistema Biometrico .::.');
     Writeln(' ');
     If nombre[diaSem]='Domingo' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 5 - 9');
        End
     Else
     If nombre[diaSem]='Sabado' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 0 - 4');
        End
     Else
     If nombre[diaSem]='Lunes' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 0 - 1');
        End
     Else
     If nombre[diaSem]='Martes' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 2 - 3');
        End
     Else
     If nombre[diaSem]='Miercoles' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 4 - 5');
        End
     Else
     If nombre[diaSem]='Jueves' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 6 - 7');
        End
     Else
     If nombre[diaSem]='Viernes' Then
        Begin
             Writeln('Hoy es: ', nombre[diaSem], ' ', dia, '/', mes, '/', ano);
             Writeln(' ');
             Writeln('Terminales Correspondiente a Comprar: 8 - 9');
        End;

     Write('ingresar Numero de Cedula: '); Readln (numced);
     ultcom:= dia-dia1;
     If (ultcom > 7) or  (numced<>cedula) then
                Begin
                     Writeln('Persona apta para Comprar Producto Reguldado');
                End
     Else If (ultcom <= 7)  or (numced=cedula) then
                Begin
                     Writeln('No Puede Comprar');
                End;
Readkey;
End.