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

var
  condom,up,down : 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 climax
end.