напишите процедуру которая выведет таблицу значений 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.Результат во вложении, поскольку тут шрифт пропорциональный и невозможно показать вывод таким, каков он на самом деле.