program AntonimSyperModel2;
 uses crt;
 const t=6;
 var i,j,k,l,w:integer; a:char; c,ob,A1,A2,A3:string;
 m:array[0..20] of string;  n:array[0..100] of string;
 d:array[0..20] of integer;
begin
 clrscr; i:=0; j:=0; k:=0; l:=0; w:=0;
 writeln('ВВЕДИТЕ АНТОНИМЫ');
 while (i<t) do
 begin
 readln(m[i]); i:=i+1;
 end;
 while (j<t)  do
 begin
 n[j]:='Не '+m[j]+' Не '+m[j+1];  n[t+j]:=' И '+m[j]+' И '+m[j+1];
 n[2*t+j]:='СКОРЕЕ '+m[j];        n[3*t+j]:='СКОРЕЕ '+m[j+1];
 j:=j+2;
 end;
 clrscr;
 writeln ('КАК ВАШЕ ИМЯ?');
readln(c);
writeln (' НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?');
readln(ob);
writeln(' ЗДРАВСТВУЙТЕ, ',c);
writeln(' ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " ',ob,' "(Y/N)?');
readln(a);
if a='y' then
begin
clrscr;
while (k<t) do begin
writeln('ОБЪЕКТ " ',ob,'" ',m[k], ' ИЛИ ', m[k+1], '?');
writeln('ВАРИАНТЫ ОТВЕТА');
writeln('1- ', m[k]); writeln('2- ',m[k+1]);
writeln('3- ', n[k]); writeln('4- ',n[k+t]);
writeln('5- ', n[k+2*t]); writeln('6- ', n[k+3*t]);
readln(d[k]); clrscr;
k:=k+2;
end;
clrscr;
writeln(' ОБЪЕКТ " ',ob,' "');
while (l<t) do begin
if d[l]=1 then writeln(m[l]);
if d[l]=2 then writeln(m[l+1]);
if d[l]=3 then writeln(n[l]);
if d[l]=4 then writeln(n[l+t]);
if d[l]=5 then writeln(n[l+2*t]);
if d[l]=6 then writeln(n[l+3*t]);
l:=l+2;
end;
writeln('********************');
writeln(' ИНВЕРСНЫЙ ОБЪЕКТ " ',ob,' "');
while (w<t) do begin
if d[w]=1 then writeln(m[w+1]);
if d[w]=2 then writeln(m[w]);
if d[w]=3 then writeln(n[w+t]);
if d[w]=4 then writeln(n[w]);
if d[w]=5 then writeln(n[w+3*t]);
if d[w]=6 then writeln(n[w+2*t]);
w:=w+2;
end;
writeln('********************');
writeln(' АНТИНОМИИ ОБЪЕКТА " ',ob,' "');
A1:='НЕ'+ob; A2:='АНТИ'+ob; A3:='БЕЗ'+ob;
writeln(A1); writeln(A2); writeln(A3);

end;
if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
readkey; clrscr;
end.

Программа строит описания при помощи антонимов. 
1) Вводятся антонимы  А и В (их количество можно менять, меняя константу t, t-четная!). 2) Вводится название объекта изучения ОВ (дом, стол, человек, партия, христианство-все, что угодно). 
3) Программма задает вопросы "объект А или В?" и варианты по принципу ВЫБОР-А, В, ИСКЛЮЧЕНИЕ- НЕ А, НЕ В, ВКЛЮЧЕНИЕ-И А, И В, ПРЕДПОЧТЕНИЕ-СКОРЕЕ А, СКОРЕЕ В.
4) Программа строит описание объекта, инверсное (обратное) описание, и аниномии объекта по принципу НЕ ОВ-все, кроме ОВ, АНТИ ОВ-против ОВ, БЕЗ ОВ-отсутствие ОВ. (Важно! Не все результаты, полученные путем антиномии, имеют логический смысл! Антиномия может создавать пустые классы!)
Результаты тестов программы прилагаются.  
ВВЕДИТЕ АНТОНИМЫ
bolshoy 
malenkiy
tolstiy
tonkiy
holodniy
gorachiy
chestkiy
magkiy
krugliy
kvadratniy
temniy
svetliy
КАК ВАШЕ ИМЯ?
Chujak
 НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?
mettallisheskiy prut
 ЗДРАВСТВУЙТЕ, Chujak
 ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " mettallisheskiy prut "(Y/N)?
y
ОБЪЕКТ " mettallisheskiy prut" bolshoy ИЛИ malenkiy
ВАРИАНТЫ ОТВЕТА
1- bolshoy
2- malenkiy
3- Не bolshoy Не malenkiy
4-  И bolshoy И malenkiy
5- СКОРЕЕ bolshoy
6- СКОРЕЕ malenkiy
1
ОБЪЕКТ " mettallisheskiy prut" tolstiy ИЛИ tonkiy
ВАРИАНТЫ ОТВЕТА
1- tolstiy
2- tonkiy
3- Не tolstiy Не tonkiy
4-  И tolstiy И tonkiy
5- СКОРЕЕ tolstiy
6- СКОРЕЕ tonkiy
5
ОБЪЕКТ " mettallisheskiy prut" holodniy ИЛИ gorachiy
ВАРИАНТЫ ОТВЕТА
1- holodniy
2- gorachiy
3- Не holodniy Не gorachiy
4-  И holodniy И gorachiy
5- СКОРЕЕ holodniy
6- СКОРЕЕ gorachiy
2
ОБЪЕКТ " mettallisheskiy prut" chestkiy ИЛИ magkiy
ВАРИАНТЫ ОТВЕТА
1- chestkiy
2- magkiy
3- Не chestkiy Не magkiy
4-  И chestkiy И magkiy
5- СКОРЕЕ chestkiy
6- СКОРЕЕ magkiy
3
ОБЪЕКТ " mettallisheskiy prut" krugliy ИЛИ kvadratniy
ВАРИАНТЫ ОТВЕТА
1- krugliy
2- kvadratniy
3- Не krugliy Не kvadratniy
4-  И krugliy И kvadratniy
5- СКОРЕЕ krugliy
6- СКОРЕЕ kvadratniy
6
ОБЪЕКТ " mettallisheskiy prut" temniy ИЛИ svetliy
ВАРИАНТЫ ОТВЕТА
1- temniy
2- svetliy
3- Не temniy Не svetliy
4-  И temniy И svetliy
5- СКОРЕЕ temniy
6- СКОРЕЕ svetliy
1
 ОБЪЕКТ " mettallisheskiy prut "
bolshoy
СКОРЕЕ tolstiy
gorachiy
Не chestkiy Не magkiy
СКОРЕЕ kvadratniy
temniy
********************
 ИНВЕРСНЫЙ ОБЪЕКТ " mettallisheskiy prut "
malenkiy
СКОРЕЕ tonkiy
holodniy
 И chestkiy И magkiy
СКОРЕЕ krugliy
svetliy
********************
 АНТИНОМИИ ОБЪЕКТА " mettallisheskiy prut "
НЕmettallisheskiy prut
АНТИmettallisheskiy prut
БЕЗmettallisheskiy prut

ВВЕДИТЕ АНТОНИМЫ
dobriy
zloy
horoshiy
plohoy
soverchenniy
rarvivajuchiysa
КАК ВАШЕ ИМЯ?
Chujak
 НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?
Chelovec
 ЗДРАВСТВУЙТЕ, Chujak
 ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " Chelovec "(Y/N)?
y
ОБЪЕКТ " Chelovec" dobriy ИЛИ zloy
ВАРИАНТЫ ОТВЕТА
1- dobriy
2- zloy
3- Не dobriy Не zloy
4-  И dobriy И zloy
5- СКОРЕЕ dobriy
6- СКОРЕЕ zloy
1
ОБЪЕКТ " Chelovec" horoshiy ИЛИ plohoy
ВАРИАНТЫ ОТВЕТА
1- horoshiy
2- plohoy
3- Не horoshiy Не plohoy
4-  И horoshiy И plohoy
5- СКОРЕЕ horoshiy
6- СКОРЕЕ plohoy
4
ОБЪЕКТ " Chelovec" soverchenniy ИЛИ rarvivajuchiysa
ВАРИАНТЫ ОТВЕТА
1- soverchenniy
2- rarvivajuchiysa
3- Не soverchenniy Не rarvivajuchiysa
4-  И soverchenniy И rarvivajuchiysa
5- СКОРЕЕ soverchenniy
6- СКОРЕЕ rarvivajuchiysa
2
 ОБЪЕКТ " Chelovec "
dobriy
 И horoshiy И plohoy
rarvivajuchiysa
********************
 ИНВЕРСНЫЙ ОБЪЕКТ " Chelovec "
zloy
Не horoshiy Не plohoy
soverchenniy
********************
 АНТИНОМИИ ОБЪЕКТА " Chelovec "
НЕChelovec
АНТИChelovec
БЕЗChelovec

ВВЕДИТЕ АНТОНИМЫ
bolshoy
malenkiy
dlinniy
korotkiy
КАК ВАШЕ ИМЯ?
Chujak
 НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?
kosmos
 ЗДРАВСТВУЙТЕ, Chujak
 ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " kosmos "(Y/N)?
y
ОБЪЕКТ " kosmos" bolshoy ИЛИ malenkiy
ВАРИАНТЫ ОТВЕТА
1- bolshoy
2- malenkiy
3- Не bolshoy Не malenkiy
4-  И bolshoy И malenkiy
5- СКОРЕЕ bolshoy
6- СКОРЕЕ malenkiy
5
ОБЪЕКТ " kosmos" dlinniy ИЛИ korotkiy
ВАРИАНТЫ ОТВЕТА
1- dlinniy
2- korotkiy
3- Не dlinniy Не korotkiy
4-  И dlinniy И korotkiy
5- СКОРЕЕ dlinniy
6- СКОРЕЕ korotkiy
1
 ОБЪЕКТ " kosmos "
СКОРЕЕ bolshoy
dlinniy
********************
 ИНВЕРСНЫЙ ОБЪЕКТ " kosmos "
СКОРЕЕ malenkiy
korotkiy
********************
 АНТИНОМИИ ОБЪЕКТА " kosmos "
НЕkosmos
АНТИkosmos
БЕЗkosmos