1.Значение А=1, В=0, С=1. Найдите не(А и В и С) и постройте логическую схему. 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.

Во-первых, не "10 ричная" система счисления, а десятичная.
А во-вторых, надо составить уравнение, используя расширенное представление числа в системе счисления по основанию n. Из условия следует, что n>4 (цифра 4 не может присутствовать в записи числа по основанию меньше 5) и n<10 (в десятичной системе счисления число двухзначное, а три знака возможны только в системе счисления с меньшим основанием).

Относительно a и b можно утверждать, что оба они целые, a ∈ [1;9], b∈ [0;9]
При этих ограничениях получается, что число 30 должно быть кратно n, следовательно n=5.
Можно также найти a и b, несмотря на то, что по условию этого не требуется.
b=6-5a и это возмжно только при a=1. Тогда b=6-5=1.
Искомое число - 114 в пятиричной системе счисления.

ответ: N=5