program options;
uses
crt;
var
n, lado, apo, per, x, sus, d, e, f:integer;
a, opc, t, l: char;
nom:string[20];
area, stop:real;
begin
repeat
clrscr;
writeln('bienvenido a la maquina de opciones');
writeln('selecciona una opcion');
writeln('a-imprime n veces un numero');
writeln('b-evalúa el área de un pentágono');
writeln('c-exit')
read(opc);
if opc='a' then
begin
writeln('dame el numero de veces a repetir');
read(sus);
writeln('dame tu nombre');
readln(nom);
repeat
x:=1;
x:=x+1;
writeln('tu nombre es' ,nom, 'bienvenido');
until x:=sus;
readln(stop);
end;
if opc='b' then
begin
writeln('dame la medida de los lados del pentágono');
read(lado);
writeln('dame el apotema');
read(apo);
per:=lado*5
area:=(per*apo)/2;
writeln('el área del pentagono es' ,area, 'gracias por usar el sistema');
end;
until opc='c';
writeln('Daniel Software Inc. 2008');
end.