Логічний тип даних

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. 




program tura;
uses crt;
 Var x1,x2,y1,y2:byte;
begin
write('координати тури');
read(x1,y1);
write('координати клітинки ');
read(x2,y2);
 if (x2=x1)or(y2=y1) then writeln('yes')
 writeln('no');

end.