Крашит фортнайт, ошибка The application has crashed and now will close, что делать?

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Примерно это должно выглядеть так:

procedure OnKeyPress(key: integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;

получить 14 с наименьшей цифрой - 9 и 5, а 12 - 9 и 3. Ставим 3 впереди, имем 395.

Следующий код на Python это подтверждает:

def change_3dig():
    n = 100
    while n < 1000:
        digits = (n // 100,
                  n % 100 // 10,
              n % 10)
        sums = (digits[0] + digits[1],
                digits[1] + digits[2])
        res = str(max(sums)) + \
          str(min(sums))
        yield (n, int(res))
        n += 1

ans = [(n1, n2) for n1, n2 in change_3dig() if n2 == 1412]
print(min(ans))

Вывод:
(395, 1412)