Укажите, что относится к растровым изображениям, а что — к векторным? 1)Как правило, файл изображения имеет небольшой размер
2)При масштабировании качество изображения не изменяется
3)Изображение состоит из графических примитивов (линий, дуг, эллипсов, прямоугольников и т.п.)
4)Изображение состоит из пикселей
5)Портрет человека - это:
6)Фотография пейзажа - это:
7)Изображение с большим количеством деталей и широкой цветовой гаммой
8)Логотип компании целесообразно выполнить как:

4 бита, это комбинация из 4-х чисел, от 1 до 0.  

Максимальное число, которое можно закодировать 4 битами это 1111 в двоичной системе, а в 10-тичной системе это число 15 (8+4+2+1).  

Итого у его может быть максимум 15 пятерок.  

Если допустить, что он получил максимум 5-ток, а это15, то тогда 160-15=145 четверок получил.  

Но, если он получил 14 оценок, это по прежнему будет 14 бит, но комбинация будет 1110.  

13 - 1101, 12 - 1100, 11 - 1011, 10 - 1010, 9 - 1001, 8 - 1000, 7 -111.  

Исходя из некоректных условий задачи, мы можем знать только то, что пятерок у ученика от 8 до 15 (8, первое число которое кодируется 4-ю битами, и 15 которое последнее).  

Задача,увы, неправильная.

Объяснение:

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.