Какие ключевые инструменты для моделирования текста имеются в редакторе OOo Writer? Каковы возможности этих инструментов и как они моделировать текст?

1)

a) (X = Y) И (Y = Z)

б) ((X = Y) И (Y != Z))  ИЛИ ((X = Z) И (Z != Y)) ИЛИ ((Y = Z) И (Z != X))

!= - "не равно"

в) (X > 0) И (Y > 0) И (Z > 0)

г) ((X > 0) И (Y > 0) И (Z < 0)) ИЛИ ((X > 0) И (Y < 0) И (Z > 0)) ИЛИ ((X < 0) И (Y > 0) И (Z > 0))

(X*Y*Z>0) И (X<0 ИЛИ Y<0 ИЛИ Z<0)

д) (X < Y) И (Y < Z)

2)

а) (X = Y) and (Y = Z)

б) ((X = Y) and (Y <> Z))  or ((X = Z) and (Z <> Y)) or ((Y = Z) and (Z <> X))

в) (X > 0) and (Y > 0) and (Z > 0)

г) ((X > 0) and (Y > 0) and (Z < 0)) or ((X > 0) and (Y < 0) and (Z > 0)) or ((X < 0) and (Y > 0) and (Z > 0))

(X*Y*Z > 0) and ((X < 0) or (Y < 0) or (Z < 0))

д) (X < Y) and (Y < Z)

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный