программа должна работать меньше 1 секунды

Const
  d = '0123456789';

var
  i, m, k: longint;
  c: char;
  n: string;

begin
  Write('Введите шестнадцатиричное число: '); Readln(n);
  m := 0;
  while n[1] = '0' do delete(n, 1, 1);
  for i := 1 to length(n) do
  begin
    c := n[i];
    case c of
      'F', 'f': k := 15;
      'E', 'e': k := 14;
      'D', 'd': k := 13;
      'C', 'c': k := 12;
      'B', 'b': k := 11;
      'A', 'a': k := 10;
    else k := Pos(c, d) - 1
    end;
    m := 16 * m + k
  end;
  Writeln(n, '(16)=', m, '(10)')
end.

Тестовое решение:
Введите шестнадцатиричное число: 1A2B3C
1A2B3C(16)=1715004(10)

Смотря где рисовала! Попробуй перезагрузить, у меня было такое в Paint, не открывается только твой рисунок? или все файлы-картинки? Если изображение не открывается , должна  высветится табличка с какой либо надписью почему она не открывается! Есть очень много случаев , например: этот файл не потянет на твой компьютер, у тебя если тупой виндоус , или наоборот слишком отличный! Или файл ты неправильно сохранила, что тот просто на просто НЕ сохранился! Попробуй перезагрузить файл, возможно получиться, или почисти компьютер  от файлов не нужных, возможно он перегружен слишком,