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

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.
program Diysne_shuslo_X;

uses CRT;

Var x1,x2,y1,y2:integer;

BEGIN
Write('Koordunatu konia');
Read(x1,y1);
Write('Koordunatu klitunku');
Read(x2,y2);
if (x2=x1) or (y2=y1) then writeln('yes');
                      else writeln('no');
END.

Перевірка
Вхідні:
x1,x2-  -5 5;
y1,y2-   9 5;
Вихідні:
yes;

Вхідні:
x1,x2-  -5 5;
y1,y2-   5 5;
Вихідні:
yes;

Вхідні:
x1,x2-  -5 5;
y1,y2-   3 9;
Вихідні:
no;

Вхідні:
x1,x2-  -5 5;
y1,y2-  -2 6;
Вихідні:
no;