program MuchOjO;
uses Windows;
function SetConsoleDisplayMode(hConsoleOutput, dwFlags: Cardinal; lpNewScreenBufferDimensions: PCOORD): LongBool; stdcall external 'kernel32';
function GetConsoleWindow: Cardinal; stdcall external 'kernel32';
var hOutput: Cardinal;
begin
AllocConsole;
SetForegroundWindow(GetConsoleWindow);
hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleDisplayMode(hOutput, 1, nil);
WriteLn('Sper0 k no c-a pa mal !');
ReadLn;
end.