Напишите процедуру которая выведет таблицу значений y=x1 end and x2 or x3

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('   x1    x2    x3    y');
  for var x1:=false to true do
    for var x2:=false to true do
      for var x3:=false to true do
        Writeln(x1:6,x2:6,x3:6,x1 and x2 or x3:6)
end.

Результат во вложении, поскольку тут шрифт пропорциональный и невозможно показать вывод таким, каков он на самом деле.