var
Option,SubOption: byte;
begin
repeat
WRITELN ('1.- Para ver mi fecha de nacimiento');
WRITELN ('2.- Ver mi numero de telefono');
WRITELN ('3.- OTRA OPCION');
WRITELN ('4.- SALIR');
ReadLn(Option);
case Option of
1: begin
repeat
WriteLn('1 sub opcion A');
Writeln('2 sub opcion B');
Writeln('3 VOLVER MENU PRINCIPAL')
Readln(SubOption);
case SubOption of
1: begin end;
2: begin end;
end;
until SubOption = 3;
end;
2: begin
end;
3:begin
end;
end;
until Option=4;