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