Крестьянину было предложено взять столько земли сколько он успеет обежать по замкнутому контуру в течиние одного дня. ему выгодно бежать по маршруту, пролегающему по.. а) сторонам треугольника б) сторонам квадрата в) окружности г) по прямой

Выгоднее будет пробежать по контуру окружности 

1. 1. количество чисел в базисе

2. 2. значение каждой цифры зависит от ее позиции в числе

3. 1. первичная

4. 2. 0-7

5. 3. 1111

6. 3. шиной

7. 4. на машинном языке (в двоичном коде).

8. 5. тактовой частоты процессора.

9. 6. быстродействие, объем памяти, разрядность.

10. 5. Совокупность проводящих каналов для передачи сигналов между микропроцессором и аппаратными устройствами.

11. 4. регистром;

12. 2. АЛУ, УУ, ОП, сопроцессор;

13. 2. Производит арифметические и логические действия над операндами;

Объяснение:

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.