Постройте таблицу истинности для логических выражений​

Program n1;
const n=20;
var a: array[1..n] of integer;
i,kn,ko,kp: integer;
function max(a,b,c: integer): string;
begin
max:=' ';
if (a>b) and (a>c) then max:='0 больше'
else if (b>c) and (b>a) then max:='отрицательных больше'
else if (c>a) and (c>b) then max:='положительных больше'
else if (a=c) and (c=b) then max:='количество всех элементов одинаковое'
else if a=b then max:='0 и отрицательных поровну'
else if b=c then max:='положительных и отрицательных поровну'
else if a=c then max:='0 и положительных поровну'
else max:='ошибка';
end;
begin
randomize;
write('исходный массив: ');
kn:=0;
kp:=0;
ko:=0;
for i:=1 to n do
begin
a[i]:=random(3)-1;
write(a[i],' ');
if a[i]>0 then kp:=kp+1
else if a[i]<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln;
write(max(kn,ko,kp));
end.

Снег мягкий, пушистый ложится  ковром.
И хлопья  летят как с небес парашюты.
Иду  на концерт  через парк напролом,
Сегодня   на сцене  весь день лилипуты.

И что-то далёкое  с детства пришло,
Ворвалось  тайком,  будто кот в одеяло.
И  тут же волною приплыло  тепло,
И радостно  сердцу как будто бы стало.

Секундой  десятки   годов  протекли,
И так же лилипут  выступленье.
Но  средь   временного пространства дали
Случайно   ворвались два  быстрых   виденья.

Был главным актёром  тогда Коля  Манг.
Мне имя его не даёт всё покоя.
И начал искать   средь названий  тот ранг,
Что  выйдет на тайну  эстрады  героя.

Искать не пришлось  мне столетьями их,
Друзья  меня взяли с собою  в походы.
И хоть   ветер  памяти  несколько стих,
Скажу,  что узнал, несмотря   на все годы…

Пейзаж колоссальный,     красавец- Мангуп!
Дорога змеится,      внизу- винограды.
Но-   дрожь пробирает,  стучит зуб о зуб,
И даже, похоже,  туристы не рады…

Какой-то   неясный, таинственный   шум,
Он  то- наяву,  то  в тумане   душевном.
Пытаюсь  уйти  от  тревожащих дум,
Всё вижу вокруг в ореоле волшебном.

Кружится,  как в сказке, серебряный свет,
Мираж   впереди,   или   жизни картина?
Все краски   опишет едва ли поэт,
И месяц,   как долька висит    апельсина…

И вспомнил, что видел товарищ тогда,
На  странной вершине   гористого плато.
Вина мы не брали,   лишь только еда,
А, впрочем,  оно ведь  у всех   виновато…

Сказал   он   наутро,   что видел концерт,
Куда направляли   мы с ним свои ноги.
Увидел он  будущий свой там мольберт,
И как я пишу   про Мангуп    эти строки…

Но именно там    как    в  «окошко»  глядел,
Сквозь  времени линзу,    астрал-телескопа…
А я  сомневаться   рассказу   посмел,
Как   рыба в легенду  морского потопа.

Мангуп   по   местам   всё  расставил  теперь,
Видение  гор   лишь    под  утро     умчалось… 
Коль  в  «завтра»   одна хоть имеется дверь,
То ключ от замка  нам  найти  уж  осталось…