<kapusta> mam seklou naladu:-D
<haLOOSER> :-D
<kapusta> premyslim o nesmrtelnosti chrousta
<haLOOSER> splacnout
<haLOOSER> lol krize
<kapusta> no tyjo.. musim
<haLOOSER>
<haLOOSER> procedure splachnout (var kapusta:record)
<haLOOSER> begin
<haLOOSER> if find_problem=true do
<haLOOSER> begin
<haLOOSER> problem:=nil;
<haLOOSER> end;
<haLOOSER> end;
<haLOOSER>
<haLOOSER> begin
<haLOOSER> splachnout(kapusta);
<haLOOSER> end.
<haLOOSER> :-D
<kapusta> :-D:-D:-D:-D:-D:-D
<kapusta> skoro splachnuto:-D
<haLOOSER>
<haLOOSER> begin
<haLOOSER> repeat
<haLOOSER> splachnout (kapusta);
<haLOOSER> until kapusta.problem=nil;
<haLOOSER> end.
<kapusta> :-D:-D:-D:-D:-D:-D:-D

Komentář: kamarad programator