|
program
AAA12022;
uses Crt;
var
Letras : string
[6];
Numero : Integer;
begin
ClrScr;
Write( 'Introduzca
numero del dado: ' );
ReadLn( Numero );
if
( Numero >= 1
) and (
Numero <= 6
) then
begin
{ Solo si el numero
es valido, se ejecuta la
instruccion
alternativa multiple }
{ Inicio del anidamiento }
case Numero of
1 : Letras := 'seis';
2 : Letras := 'cinco';
3 : Letras := 'cuatro';
4 : Letras := 'tres';
5 : Letras := 'dos';
6 : Letras := 'uno'
end;
{ Fin del anidamiento }
Write( 'En la cara
opuesta esta el "', letras, '".' );
end
else
Write( 'ERROR:
Numero incorrecto.' );
end.
|
