Var f1,f2,f3,x,n,b:boolean; y,c,d:integer;
begin
x:=false; y:=14;
F1:= (x and x) or (y mod 2=0) and x ;
n:=true; b:=false;
F2:= Not(n) or not(b) and b;
c:=3; d:=-5;
F3:=(c + d <> 0) and (c = 0); writeln('F1=',F1);writeln('F2=',F2);writeln('F3=',F3);end.