[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils;

function GetConsoleWindow(): HWND; stdcall; external 'Kernel32.dll';

begin
  if MessageBox(GetConsoleWindow, 'Vista?', 'Квадратное уравнение',
  MB_YESNO or MB_ICONQUESTION)=IDYES then
  begin
    Writeln('Vista');
  end else
  begin
    Writeln('!Vista');
  end;
  Readln;
end.