program menufacil;
uses crt;
var
opcion:Char;
Begin
Repeat
clrscr;
Gotoxy(30,10);write('Opcion ..... [1]');
Gotoxy(30,11);write('Opcion ..... [2]');
Gotoxy(30,12);write('Opcion ..... [3]');
Gotoxy(30,13);write('Opcion ..... [4]');
Gotoxy(30,14);write('Salir ..... [5]');
Opcion:=readkey;
Case Opcion Of
'1':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 1');
readkey;
End;
'2':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 2');
readkey;
End;
'3':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 3');
readkey;
End;
'4':Begin
clrscr;
GotoXy(30,10);Write('Esta es la Opcion 4');
readkey;
End;
End;{Case}
Until Opcion ='5';
GotoXy(30,16);Write('Elegiste la opcion salir');
readkey;
end.
deposita a la cuenta
