HelloWorld.pas

program HappyLife; {$X+} const God = infinity; uses World; var Voitcus, Mom, Dad: THuman; birth_date: TDate; begin birth_date := year(1977); Voitcus := THuman.Create(birth_date, Mom, Dad); while (Voitcus.isAlive and (System.date <= EndOfTheWorld)) do begin { insert your code here } end; end.