Для кодирования букв а, б, в, г решили использовать двухразрядные последовательные двоичные числа (от 00 до 11, . соответственно если таким способом закодировать последовательность символов агвб и записать результат шестнадцатеричным кодом, то получится

var

 i, n, ch, k1, k2, k3: Integer; //Объявляем переменные

begin // Начало блока  

 Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел

 Writeln('Введите числа: ');

 for i := 1 to n do // Начинаем цикл for от 1 до N                                  

 begin //Начало цикла

   Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры

   {Inc - счетчик  

   т.е если условие истинно с мы в переменную k1 записываем +1}

   if ch = 0 Then Inc(k1);  

   if ch > 0 Then Inc(k2);

   if ch < 0 Then Inc(k3);

 end; //Конец цикла

 {Выводим информацию о количестве чисел которые соответствуют условию}

 Writeln('Число нулей: ', k1);  

 Writeln('Число положительных: ', k2);

 Writeln('Число отрицательных: ', k3);

end. // Конец

Объяснение:

program num32;var

 nums, i, min, max, a, i2, i3, sum: integer;begin

 min := 7;

 max := 0;

 sum := 0;

 

 readln(nums);

 

 

 while nums <> 0 do

 begin

  

   if (((nums mod 10) > max)) then begin

     max := nums mod 10;

   end;

  

  

  

   if (((nums mod 10) < min)) then begin

     min := nums mod 10;

    

    

   end;

   nums := nums div 10;

  

 end;

 

 

 

 if (min > max) then begin

  

   for i2 := max to min do

     sum := sum + i2; 

 end;

 

 if (max > min) then begin

   for i2 := min to max do

     sum := sum + i2;

 end;

 

 writeln(sum);