procedure мозг.clean_from_fucking:integer;
i:integer;
begin
i:=0;
repeat
wizem.inventory.beer.drink;
if (i mod 2 = 0) then wizem.inventory.snuff.use;
if (wizem.nose.надо_сморкац) then nose.сморкац
i:=i+1;
until (wizem.inventory.beer.ammount = 0) or (wizem.мозг = clean) or (wizem.condition = asleep);
FUNCTION мозг.clean_from_fucking:integer;
VAR i:integer;
begin
i:=0;
repeat
wizem.inventory.beer.drink;
if (i mod 2 = 0) then wizem.inventory.snuff.use;
if (wizem.nose.надо_сморкац) then nose.сморкац;
i:=i+1;
until (wizem.inventory.beer.ammount = 0) or (wizem.мозг = clean) or (wizem.condition = asleep);
return i; //возвращаем количество выпитого пива.
END;