После инициализации шрифт не работает :с Хук - MinHook Библиотека - ImGui ImGuiIO& io = ImGui::GetIO();

ImFont* bold = io.Fonts->AddFontFromFileTTF("C:\\Windows\\Fonts\\MuseoSansCyrl-900.ttf", 16.0f);

IM_ASSERT(bold != NULL);

ImFont* semibold = io.Fonts->AddFontFromFileTTF("C:\\Windows\\Fonts\\MuseoSansCyrl-700.ttf", 16.0f);

IM_ASSERT(semibold != NULL);

ImFont* regular = io.Fonts->AddFontFromFileTTF("C:\\Windows\\Fonts\\MuseoSansCyrl-500.ttf", 16.0f);

IM_ASSERT(regular != NULL);

if (ImGui::Begin("Test")) {

ImGui::PushFont(bold);

ImGui::Text("bold");

ImGui::PopFont();

ImGui::PushFont(semibold);

ImGui::Text("semibold");

ImGui::PopFont();

ImGui::PushFont(regular);

ImGui::Text("regular");

ImGui::PopFont();

}

ImGui::End();

Ну uses crt для того если я не ошибаюсь что-бы работала программа
Var это переменные
Writeln это то что обычно будет написано программой
Readln это то число которое ты будешь вводить
дальше веселей скажу на своём
если i равно 1 или n тогда 
начали 
если j равно 1 или n тогда
если i равно 1 или i равно n написать 0 в противном случае
если i больше или равно j  и i+j меньше или равно n+1 тогда написать 1 в противном случае
если i меньше или равно j и i+j больше или равно n+1 тогда написать 1 в противном случае написать 0 

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.

Смысл такой:  - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Далее идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t

После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.

А дальше у нас end (последний end. всегда с точкой).

Конец.