Program Sex (input, output, input, output, input, output, input, output);

var
    condom,up,down,orgasm : boolean;

Procedure up_and_down;
begin
  if up=true then
    down
  else
    up
end;

begin
  repeat
   read(condom);
  until (condom=true)
  repeat
    up_and_down;
   until (orgasm=true)
end.