Quieres Ser MI novia

program forever;
uses wincrt;
var
op:integer;
begin
writeln('***Menu***');
writeln('');
writeln('Quieres ser mi novia?');
writeln('1- SI');
writeln('2- NO');
readln(op);
if op=1 then
write('Felicidades! Te han dicho si, "Dedicale La Cancion de Somos Novios"')
  else
if op=2 then
begin
writeln('Lo siento te han dicho que no vuelve a intetarlo');
 writeln('Quieres ser mi novia?');
writeln('1- SI');
writeln('2- NO');
readln(op);
if op=1 then
write('Tu Insistir te a dado fruto, Son Novios!!')
else
if op=2 then
write('Te sale Binomio de Oro - Olvidala!!');
end;




end.