program Hello;

type
    TDate = record
        Year  : Word;
        Month : Byte;
        Day   : Byte;
    end;
    PMultiuniverseManager = ^TMultiuniverseManager;
    TMultiuniverseManager = record
        // Top Secret
    end;

    PPreviewData = ^TPreviewData;
    TPreviewData = record
        Size     : Word;
        Buffer   : array[0..65520] of Byte;
    end;
    TPreview     = function : PPreviewData;

const
     TheDayWeTookTheFirstProgrammingClass : TDate = (
         Year  : 2015;
         Month : 3;
         Day   : 9
     );

var
   CurrentManager : PMultiuniverseManager;
   CurrentDate    : TDate;

function Replay : PPreviewData;
begin
     New(Replay);

     with Replay^ do
     begin
          Buffer[0] := Byte(CurrentDate.Year and $00FF);
          Buffer[1] := Byte(CurrentDate.Year shr 8);
          Buffer[2] := CurrentDate.Month;
          Buffer[3] := CurrentDate.Day;
          Size := 0;
          // Top Secret
     end;
end;

function CreateMultiuniverseManager : PMultiuniverseManager;
var
   Mum : PMultiuniverseManager;
begin
     New(Mum);
     (* Top Secret *)
     CreateMultiuniverseManager := Mum;
end;

function GetReplayablePreviewOn(
        Mum : PMultiuniverseManager;
        D   : TDate
) : TPreview;
begin
     CurrentManager := Mum;
     CurrentDate := D;
     (*^_^*)
     GetReplayablePreviewOn := @Replay;
end;

function Summary(P : PPreviewData) : String;
begin
     (*//w<*)
end;

function FindWhatWeDidOn(D : TDate) : String;
var
   Mum     : PMultiuniverseManager;
   Preview : TPreview;
begin
     Mum := CreateMultiuniverseManager;
     Preview := GetReplayablePreviewOn(Mum, D);

     Data := Preview;
     FindWhatWeDidOn := Summary(Data);

     Dispose(Data)
     Dispose(Mum);
end;

begin
     if FindWhatWeDidOn(TheDayWeTookTheFirstProgrammingClass) <>
             'Ran our first "Hello, world\n" program with Turbo Pascal' then
        Halt(1);
     else
         Writeln('Hello, world!');
end.