program bool(input);
var i,j,k:integer;
    b1,b2,b3:boolean;
begin
  i:=2; j:=3; k:=4;
  b1:=false; b2:=b1; b3:=true;
  b1:=not true;
  b2:=not b3;
  b3:= not b1 and b2;
  b2:= not b1 or b2 and b3;
  if not b1 then i:=3;
  if not j=k then i:=2;
  if not (j=k) and (i=j) then i:=0;
  if true then i:=3;
  if false then i:=4;
  if true then i:=3 else i:=4;
  while (i=j) and (j=k) do i:=i+j;
  while (i=j) or (j=k) do i:=i+j;
  while (i>k) and (j=k) do i:=i+j;
  while (i<>k) and (j=k) do i:=i+j;
  while true do i:=i+1;
  if true and (i=j) then i:=k;
  if false and (i=j) then i:=j;
  if true or (i=j) then i:=k;
  if false or (i=j) then i:=j;
end.
