program Program1;

uses
  CRT;

begin
  InitConsole('Hello', True);
  WriteLn('My first program');
  ReadKey;
end.