1)Обосновать (методом перебора вероятных значений), что для всех величин А, В,

Задание 1.
var
  A, B, C, F: boolean;
  i, j, k: integer;

begin
  for i := 0 to 1 do
    for j := 0 to 1 do
      for k := 0 to 1 do
      begin
        A := (i = 1); B := (j = 1); C := (k = 1);
        F := ((A and B) and C) = (A and (B and C));
        Writeln('A=', A, ', B=', B, ', C=', C, ', итог сопоставленья:', F)
      end
end.

Итог выполнения программки:
A=False, B=False, C=False, итог сопоставленья:True
A=False, B=False, C=True, итог сравнения:True
A=False, B=True, C=False, результат сопоставления:True
A=False, B=True, C=True, итог сравнения:True
A=True, B=False, C=False, результат сопоставленья:True
A=True, B=False, C=True, результат сопоставленья:True
A=True, B=True, C=False, итог сопоставленья:True
A=True, B=True, C=True, результат сопоставленья:True

Задание 2.
var
  a, b, c: integer;

begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.

Итог исполненья программы:
100
147

Держи пока что первую, на данный момент вторую сделаю!