Program logicander;
Uses WinCrt;
Var
si, no, opc : integer;
Begin
WriteLn ( 'Menu para novios' );
WriteLn ( '¿Quieres ser mi novia?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Te han dicho que SI!' )
else
If opc=2 then
Begin
WriteLn ( '¡Te han dicho que NO! FRIENDZONED' );
WriteLn ( '¿Quieres seguir intentando?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Felicitaciones, la ladilla ha dado frutos!' )
else
If opc=2 then
WriteLn ( 'Lo siento campeon, la vida continua' )
end;
end.
