## Код:
```
MODULE VerySimple;

IMPORT SYSTEM, WinApi;

VAR
  wClass: WinApi.WNDCLASS;
  Msg: WinApi.MSG;
  Win, Button1: WinApi.HWND;
  res: INTEGER;
  Instance: WinApi.HINSTANCE;

PROCEDURE WindowProc (Win, msg, WP, LP: INTEGER): INTEGER;
BEGIN
  IF msg = WinApi.WM_DESTROY THEN
     WinApi.PostQuitMessage(0);
   END;
  RETURN WinApi.DefWindowProc(Win, msg, WP, LP)
END WindowProc;

BEGIN
  Instance := WinApi.GetModuleHandle(NIL);
  wClass.lpszClassName := "CN";
  wClass.lpfnWndProc := WindowProc;
  wClass.hbrBackground := 1;
  wClass.hCursor := WinApi.LoadCursor(0, SYSTEM.VAL(WinApi.PtrSTR, WinApi.IDC_ARROW));
  wClass.hInstance := Instance;
     
  res := WinApi.RegisterClass(wClass);
     
  Win := WinApi.CreateWindowEx({}, wClass.lpszClassName, "Это очень простая программа",
    WinApi.WS_OVERLAPPED + WinApi.WS_SYSMENU + WinApi.WS_MINIMIZEBOX + WinApi.WS_VISIBLE,
    400, 300, 340, 217, 0, 0, Instance, 0);
     
  Button1 := WinApi.CreateWindowEx(WinApi.WS_EX_STATICEDGE, "Button", "Выход", 
    WinApi.WS_VISIBLE + WinApi.WS_CHILD, 100, 100, 100, 100, Win, 0, Instance, 0);
   
  WHILE WinApi.GetMessage(Msg, 0, 0, 0) # 0 DO
    res :=  WinApi.TranslateMessage(Msg);
    res := WinApi.DispatchMessage(Msg);
  END;
  WinApi.ExitProcess(Msg.wParam)

END VerySimple.

^Q DevLinker.LinkExe VerySimple.exe := VerySimple ~
```
