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

 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. 


5)З’ясуйте, чи може шахова тура за один ход потрапити з клітинки з координатами (x1,y1) у клітинку з координатами (x2,y2). Тура ходить тільки у горизонтальному або вертикальному напрямках.

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

end.

6)Поїзд прибуває на станцію в a годин b хвилин та відправляється в c годин d хвилин. Пасажир прийшов на платформу в n годин m хвилин. Чи буде поїзд стояти на платформі? (для випадку, що все відбувається за одну добу) 


Var a,b,c,d,n,m,t1,t2,t3:byte;
begin 
 write('poizd_prishol');read(a,b);
 write('poizd ushol');read(c,d);
 t1:=a*60+b;
 t2:=c*60+d;
 t3:=n*60+m;
 if (t3>=t1)and(t3<=t2)
    then writeln('yes') 
    else writeln('no');
end.