Специфический юмор: пользователи и компьютеры

[Maxou]

Type
EOpaMenty = class(EAbort);

procedure CHista_V_Nature();
Var
Iks : TLoh;
Zelen : TBabki;
begin
Iks := TLoh.Create();
try
repeat
Zelen := Prodal(Obmenial(Kupil(Obnalichil(Perevel(Zanial(Ik s)))));
Otstegnut_Dolu(krysha, Zelen*0.1);
until (Iks < $1000000);
Rvem_Kogti();
except
on EOpaMenty do Motaem_Srok(); // ((
end;
end;