program Project1;
 
type Gender = (Female, Male);
 
type Farmer = record
  Child1, Child2 : Gender;
end;
 
type FarmerAnswer = (IHaveADaughter, IHaveASon);
 
function GenerateFarmer : Farmer;
var
  FuckStupidGPC : Farmer;
begin
  if random(2)=0 then FuckStupidGPC.Child1 := Female
  else FuckStupidGPC.Child1 := Male;
 
  if random(2)=0 then FuckStupidGPC.Child2 := Female
  else FuckStupidGPC.Child2 := Male;
 
  GenerateFarmer := FuckStupidGPC;
end;
 
function GetAnswer (const F : Farmer) : FarmerAnswer;
var
  FuckStupidGPC : FarmerAnswer;
begin
  if random(2)=0 then begin
    if F.Child1 = Female then FuckStupidGPC := IHaveADaughter
    else FuckStupidGPC := IHaveASon;
  end else begin
    if F.Child2 = Female then FuckStupidGPC := IHaveADaughter
    else FuckStupidGPC := IHaveASon;
  end;
 
  GetAnswer := FuckStupidGPC;
end;
 
var
  i  : integer;
  F  : Farmer;
  FA : FarmerAnswer;
  Count, Success : integer;
begin
  Randomize;
  Count := 0;
  Success := 0;
  for i := 0 to 1000*1000*10-1 do begin
    F := GenerateFarmer;
    FA := GetAnswer(F);
    if FA=IHaveASon then begin
      Inc(Count);
      if (F.Child1 = Male) and (F.Child2 = Male) then
        Inc(Success);
    end;
  end;
 
  WriteLn('Count=', Count, '; Success=', Success, '; Ratio=', Success/Count:0:10);
end.
 

cHJvZ3JhbSBQcm9qZWN0MTsKCnR5cGUgR2VuZGVyID0gKEZlbWFsZSwgTWFsZSk7Cgp0eXBlIEZhcm1lciA9IHJlY29yZAogIENoaWxkMSwgQ2hpbGQyIDogR2VuZGVyOwplbmQ7Cgp0eXBlIEZhcm1lckFuc3dlciA9IChJSGF2ZUFEYXVnaHRlciwgSUhhdmVBU29uKTsKCmZ1bmN0aW9uIEdlbmVyYXRlRmFybWVyIDogRmFybWVyOwp2YXIKICBGdWNrU3R1cGlkR1BDIDogRmFybWVyOwpiZWdpbgogIGlmIHJhbmRvbSgyKT0wIHRoZW4gRnVja1N0dXBpZEdQQy5DaGlsZDEgOj0gRmVtYWxlCiAgZWxzZSBGdWNrU3R1cGlkR1BDLkNoaWxkMSA6PSBNYWxlOwoKICBpZiByYW5kb20oMik9MCB0aGVuIEZ1Y2tTdHVwaWRHUEMuQ2hpbGQyIDo9IEZlbWFsZQogIGVsc2UgRnVja1N0dXBpZEdQQy5DaGlsZDIgOj0gTWFsZTsKCiAgR2VuZXJhdGVGYXJtZXIgOj0gRnVja1N0dXBpZEdQQzsKZW5kOwoKZnVuY3Rpb24gR2V0QW5zd2VyIChjb25zdCBGIDogRmFybWVyKSA6IEZhcm1lckFuc3dlcjsKdmFyCiAgRnVja1N0dXBpZEdQQyA6IEZhcm1lckFuc3dlcjsKYmVnaW4KICBpZiByYW5kb20oMik9MCB0aGVuIGJlZ2luCiAgICBpZiBGLkNoaWxkMSA9IEZlbWFsZSB0aGVuIEZ1Y2tTdHVwaWRHUEMgOj0gSUhhdmVBRGF1Z2h0ZXIKICAgIGVsc2UgRnVja1N0dXBpZEdQQyA6PSBJSGF2ZUFTb247CiAgZW5kIGVsc2UgYmVnaW4KICAgIGlmIEYuQ2hpbGQyID0gRmVtYWxlIHRoZW4gRnVja1N0dXBpZEdQQyA6PSBJSGF2ZUFEYXVnaHRlcgogICAgZWxzZSBGdWNrU3R1cGlkR1BDIDo9IElIYXZlQVNvbjsKICBlbmQ7CgogIEdldEFuc3dlciA6PSBGdWNrU3R1cGlkR1BDOwplbmQ7Cgp2YXIKICBpICA6IGludGVnZXI7CiAgRiAgOiBGYXJtZXI7CiAgRkEgOiBGYXJtZXJBbnN3ZXI7CiAgQ291bnQsIFN1Y2Nlc3MgOiBpbnRlZ2VyOwpiZWdpbgogIFJhbmRvbWl6ZTsKICBDb3VudCA6PSAwOwogIFN1Y2Nlc3MgOj0gMDsKICBmb3IgaSA6PSAwIHRvIDEwMDAqMTAwMCoxMC0xIGRvIGJlZ2luCiAgICBGIDo9IEdlbmVyYXRlRmFybWVyOwogICAgRkEgOj0gR2V0QW5zd2VyKEYpOwogICAgaWYgRkE9SUhhdmVBU29uIHRoZW4gYmVnaW4KICAgICAgSW5jKENvdW50KTsKICAgICAgaWYgKEYuQ2hpbGQxID0gTWFsZSkgYW5kIChGLkNoaWxkMiA9IE1hbGUpIHRoZW4KICAgICAgICBJbmMoU3VjY2Vzcyk7CiAgICBlbmQ7CiAgZW5kOwoKICBXcml0ZUxuKCdDb3VudD0nLCBDb3VudCwgJzsgU3VjY2Vzcz0nLCBTdWNjZXNzLCAnOyBSYXRpbz0nLCBTdWNjZXNzL0NvdW50OjA6MTApOwplbmQuCg==