program p33_3;
var x:boolean;
BEGIN
writeln(' x not x') ;
x:=true;
writeln(' ',x,' ',not x) ;
x:=not x;
writeln(' ',x,' ',not x) ;
readln;
END.

<< Назад