E:\Мелодия.mp3 т.к. этот файл находится на 1 уровне.
<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> s := Chr(66) + Chr(69) + Chr(71) + Chr(73) + Chr(78);</em>
<em> Write(s);</em>
<em>END.</em>
Принимаем первое число. проверяем на ><0 если больше, выводим квадрат етого числа.Эту функцию выпоняем необходимое кол-во раз(3 в данном случае)
X=¬A*B*C
Y=¬A*B
Z=A*C
F=X+Y+Z
----------------------------------------------
ABC X Y Z F
000 0 0 0 0
001 0 0 0 0
010 0 1 0 1
011 1 1 0 1
100 0 0 0 0
101 0 0 1 1
110 0 0 0 0
111 0 0 1 1
------------------------------
F=1 при
{A,B,C}={0,1,0} , {0,1,1} , {1,0,1}, {1,1,1}