Menu

PROGRAM menu;

 Var
     opcion: char;
     numero: integer;

 BEGIN
  writeln('1--> Muestra un mensaje en pantalla');
  writeln('2--> Ingresar un n£mero');
 writeln('3--> Ingresar un caracter');

 write('Ingrese una opcion y presione ENTER: ');
 readln(opcion);

 writeln;

 Case opcion of
 '1': writeln('MENSAJE DESPLEGADO');
 '2': begin
         write('Ingrese un n£mero entero: ');
         readln(numero);
         writeln('Ha ingresado ',numero,'.');
      end;
 '3': begin
         write('Ingrese un caracter: ');
         readln(opcion);
        writeln('Ha ingresado ',opcion);
      end;
 else
     writeln('ERROR. No existe la opci¢n ',opcion);
 end; //De la instrucci¢n CASE.
END.