LTD

1. Const a=2; b=10; 
 var x:boolean; 
begin 
  x:=a < b; 
  Writeln(x); 
end. 

2. Const a=TRUE;    b=FALSE; 
Begin 
 writeln(b > a); 
end. 

3. Const X=-2; y=2; 
 Var Z:Boolean; 
Begin 
Z:=sqr(x)-sqr(y)=0; writeln(z); 
end.

4. Const F=7; D=5; 

 Var Z:Boolean; 
Begin 
 Z:=1/F > 1/D; 
 writeln(z); 

end.