Ejercicio 15

Plantee e implemente un programa en PASCAL de forma que solicite un
carácter y que, dependiendo  del carácter introducido, muestre por pantalla lo
indicado y a continuación vuelva a mostrar el menú:
i) “Ahora dibujaría un rectángulo”, si se ha tecleado una R
ii) “Ahora dibujaría un cuadrado”, si se ha tecleado una C
iii) “Ahora dibujaría un pentágono” si se ha tecleado una P
iv) “Ahora acabo el programa” si se ha tecleado una A


PROGRAM selector(input,output);

VAR
 B:char;
BEGIN
writeln('Escribe R,C,P o A');
REPEAT
 read(B);

Case B OF
 'R','r' : writeln('Ahora dibujaria un rectangulo');
 'C','c' : writeln('Ahora dibujaria un cuadrado');
 'P','p' : writeln('Ahora dibujaria un pentagono');
 'A','a' : writeln('Ahora acabo el programa');
END;
UNTIL (B='A')OR(B='a');
END.

Ejemplo de ejecución