Asi como el IF THEN que son 2 opciones existe el " CASE OF "
que son una lista de posibles situaciones en la que el computador debera elegir que pasos debe seguir





program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

//Este programa nos dira a que dia de la semana corresponde un numero
//EJ:
//2=martes 6=sabado 8=ERROR (solo existen 7 dias)
//****************EMPIEZA EL PROGRAMA*******************
var Dia:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('por favor ingrese un numero entre 1 y 7');
  readln(dia);
  case dia of               //Se eligen los posibles casos
  1:Writeln('Es Lunes');
  2:Writeln('Es Martes');
  3:Writeln('Es Miercoles');
  4:Writeln('Es Jueves');
  5:Writeln('Es Viernes');
  6:Writeln('Es Sabado');
  7:Writeln('Es Domingo');
  else      //Si "dia"(la variable) no este entre los casos posibles se ejecuta el ELSE
  Write('No Existe el dia ');
  writeln(dia);        //aqui le pido q ingrese lo q esta almacenado en la variable dia
  end;
  readln;
end.