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