Cansado de programar / Tired of Programming

Procedure MeVaADarAlgo();
var
ocupacion:string;
estado:integer;
begin
//Estado: 100= felicidad. 0=suicidio
estado:=80;
Repeat
estado:=estado-1;
until estado=0;
end;

Demasiado programar con el dichoso Delphi

********************

Procedure ICantStandIt();
var
activity:string;
state:integer;
begin
//State: 100=happinness. 0=suicide
state:=80;
Repeat
state:=state-1;
until state=0;
end;

Two much programming with Delphi