Voitcus
  • Member for 6 years, 7 months
  • Last seen more than 1 year ago
  • Poland
Stats
745
reputation
19k
reached
6
answers
3
questions
Loading…
About

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.
This user doesn’t have any gold badges yet.
4
silver badges
10
bronze badges
17
Score
7
Posts
78
Posts %
9
Score
2
Posts
22
Posts %
9
Score
2
Posts
22
Posts %
9
Score
1
Posts
11
Posts %
4
Score
1
Posts
11
Posts %
2
Score
1
Posts
11
Posts %