1)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): (A AND B) AND C и A AND (B AND C).

2)Найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.

for var i - это что, java внутри Паскаля?

Не) Обычный синтаксис abc, удобнее в некоторых ситуациях :)

В abc есть и foreach, тогда бы уж перебрали им [False,True]

Я мало на нём пишу, какие фишки знаю сам, теми и пользуюсь :) А так, спасибо, возьму на заметку.

Задание 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)      endend.Результат выполнения программы:A=False, B=False, C=False, результат сравнения:TrueA=False, B=False, C=True, результат сравнения:TrueA=False, B=True, C=False, результат сравнения:TrueA=False, B=True, C=True, результат сравнения:TrueA=True, B=False, C=False, результат сравнения:TrueA=True, B=False, C=True, результат сравнения:TrueA=True, B=True, C=False, результат сравнения:TrueA=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.Результат выполнения программы:100147