{* Таблица истинности логической операции not *}

Unit P33_3;
Interface
Implementation
Begin
 writeln('Программа выводит на экран таблицу истинности логической операции not. ');
End.

Program p33_3;

Uses p33_3.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : boolean;
Begin
  writeln(' x Not x');
  x := true;
  writeln(' ', x, ' ', Not x);
  x := Not x;
  writeln(' ', x, ' ', Not x);
  readln; {* Ждем подтверждения пользователя *}
End.