|
program AAM12012;
uses Crt;
var
Letras : string
[6];
Numero : Integer;
begin
ClrScr;
Write( 'Introduzca
numero del dado: ' );
ReadLn( Numero );
case
Numero of
1 : Letras := 'seis';
2 : Letras := 'cinco';
3 : Letras := 'cuatro';
4 : Letras := 'tres';
5 : Letras := 'dos';
6 : Letras := 'uno'
end;
if
( Numero >= 1
) and (
Numero <= 6
) then
Write( 'En la cara opuesta esta el
"', Letras, '".'
)
else
Write( 'ERROR: Numero incorrecto.'
)
end.
|
