Представить числа 25 и -25 в двоичной 8-битной форме со знаком.

F истинно тогда и только тогда, когда истинно или , или z. Три переменные (x,y,z) дают 2³=8 комбинаций в таблице истинности. При этом, истинность F получается в пяти случаях (четыре дает истинность z и одну - истинность ).
Получаем пять единичных комбинаций для таблицы истинности:
x  y z F
0 0 1 1
0 1 1 1
1 0 0 1
1 0 1 1
1 1 1 1
В исходной таблице истинности единицы в F в четырех случаях совпадают с единицами в первой колонке, следовательно она отражает состояние переменной z. Оставшаяся (пятая) единица в F должна соответствовать комбинации "100" для xyz и в исходной таблице она записана как "010". Тогда переменная х=1 должна стоять в этой таблице во второй колонке. Колонка для у - третья.
ответ: zxy

var

 n, max, count, contrl, max2: integer;

begin

 contrl := 0;

 max := 0;

 Writeln('Введите числа: ');

 Readln(n);

 while n <> 0 do

 begin

   Inc(count);

   if n>max then begin max2:=max; max:=n end

   else if n > max2 then max2 := n;

   Read(n);

 end;

 max2*=max;

 Writeln('Введите контрольное значение: ');

 Read(contrl);

 Writeln('Получено: ', count, ' чисел');

 Writeln('Получено контрольное значение: ', contrl);

 Writeln('Вычисленное контрольное значение:: ', max2);

 if contrl = max then Writeln('Контроль пройден')

 else Writeln('Контроль не пройден');

end.