Program Couple;
Uses WinCrt;
Var op:integer;
Begin

Writeln ('Quieres ser novio');
Writeln ('1-Si');
Writeln ('2-No');
Readln (op);

If op=1 then
Writeln ('Felicidades, la pegaste')
Else
If op=2 then
Begin
Writeln ('Lo lamento, sigue intentando');

Writeln ('Insistencia en ser novios');
Writeln ('1-Si');
Writeln ('2-No');
Readln (op);

If op=1 then
Writeln ('A la segunda la pegaste')
else
If op=2 then
Writeln ('Olvídalo, adiós')
End;
End.