{* Значения логической функции z=x or y *}

Unit P33_5;
Interface
Implementation
Begin
 writeln('Программа вычисляет значения логической функции z=x or y.');
End.

Program p33_5;

Uses p33_5.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : boolean;
  y : boolean;
  z : boolean;
Begin
  writeln(' x y x Or y');
  x := true;
  y := true;
  z := x Or y;
  writeln(' ', x, ' ', y, ' ', x Or y);
  x := true;
  y := false;
  z := x Or y;
  writeln(' ', x, ' ', y, ' ', x Or y);
  x := false;
  y := true;
  z := x Or y;
  writeln(' ', x, ' ', y, ' ', x Or y);
  x := false;
  y := false;
  z := x Or y;
  writeln(' ', x, ' ', y, ' ', x Or y);
  readln; {* Ждем нажатия Enter *}
End.