На каком языке написана программа на Си или С++?

/*WinAPI приложение. Минимальный
набор функций для отображения окна.
Эта программа станет базовой заготовкой для всех последующих программ*/
 
#include <windows.h>
#include <tchar.h>
 
//Создаём прототип функции окна 
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
//объявляем имя программы 
TCHAR szProgName[] = _T("Имя программы");
 
int WINAPI _tWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
{
    HWND hWnd; //идентификатор окна 
    MSG lpMsg;
 
    WNDCLASS w; //создаём экземпляр структуры WNDCLASS и начинаем её заполнять 
 
    w.lpszClassName = szProgName; //имя программы 
    w.hInstance = hInstance; //идентификатор текущего приложения 
    w.lpfnWndProc = WndProc; //указатель на функцию окна 
    w.hCursor = LoadCursor(NULL, IDC_ARROW); //загружаем курсор в виде стрелки 
    w.hIcon = 0; //иконки у нас не будет пока 
    w.lpszMenuName = 0; //и меню пока не будет 
    w.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH); //цвет фона окна - белый 
    w.style = CS_HREDRAW | CS_VREDRAW; //стиль окна - перерисовываемое по х и по у 
    w.cbClsExtra = 0;
    w.cbWndExtra = 0;
 
    //Если не удалось зарегистрировать класс окна - выходим 
    if (!RegisterClass(&w))
        return 0;
 
    //Создадим окно в памяти, заполнив аргументы CreateWindow 
 
    hWnd = CreateWindow(szProgName, //Имя программы 
        _T("Моя первая программа! "), //Заголовок окна 
        WS_OVERLAPPEDWINDOW, //Стиль окна - перекрывающееся 
        100, //положение окна на экране по х 
        100, //по у 
        500, //размеры по х 
        400, //по у 
        (HWND)NULL, //идентификатор родительского окна 
        (HMENU)NULL, //идентификатор меню 
        (HINSTANCE)hInstance, //идентификатор экземпляра программы 
        (HINSTANCE)NULL); //отсутствие дополнительных параметров 
 
                          //Выводим окно из памяти на экран 
    ShowWindow(hWnd, nCmdShow);
    //Обновим содержимое окна 
    UpdateWindow(hWnd);
 
    //Цикл обработки сообщений 
 
    while (GetMessage(&lpMsg, NULL, 0, 0))
    { //Получаем сообщение из очереди 
        TranslateMessage(&lpMsg); //Преобразуем сообщения клавиш в символы 
        DispatchMessage(&lpMsg); //Передаём сообщение соответствующей функции окна 
    }
    return(lpMsg.wParam);
}
 
//Функция окна 
LRESULT CALLBACK WndProc(HWND hWnd, UINT messg,
    WPARAM wParam, LPARAM lParam)
{
    HDC hdc; //создаём контекст устройства 
    PAINTSTRUCT ps; //создаём экземпляр структуры графического вывода 
 
                    //Цикл обработки сообщений 
    switch (messg)
    {
        //сообщение рисования 
        case WM_PAINT:
            //начинаем рисовать 
            hdc = BeginPaint(hWnd, &ps);
            //здесь вы обычно вставляете свой текст: 
            TextOut(hdc, 150, 150, _T("Здравствуй, WIN 32 API!!!!"), 26);
            //закругляемся 
            //обновляем окно 
            ValidateRect(hWnd, NULL);
            //заканчиваем рисовать 
            EndPaint(hWnd, &ps);
            break;
 
            //сообщение выхода - разрушение окна 
        case WM_DESTROY:
            PostQuitMessage(0); //Посылаем сообщение выхода с кодом 0 - нормальное завершение 
            break;
 
        default:
            return(DefWindowProc(hWnd, messg, wParam, lParam));
    }
    return 0;
}