Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код. используйте процедуру. входные данные 255 выходные данные ff

Отдел +; использует вывод из "", приём; пер   число: цел;   шестн: ряд 32 из знак;   сч: цел;   зн: знак; шестнцифра(цифра: цел): знак; указ   если цифра < 10 то возврат взнак(вцел("0") + цифра)   иначе возврат взнак(вцел("a") - 10 + цифра) кон кон шестнцифра; указ   число : = приём.число();   шестн : = "";   вывод.цепь("^");   пока число > 0 вып       шестн[длина(шестн) + 1] = 0x;     шестн[длина(шестн)] = шестнцифра(число остаток 16);     число : = число делить 16   кон;   от сч : = 0 до длина(шестн) - 1 вып     зн : = шестн[сч];     шестн[сч] : = шестн[длина(шестн) - 1 - сч];       шестн[длина(шестн) - 1 - сч] : = зн   кон;   вывод.цепь(шестн) кон .

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;