Є сітка довжиною 100 м для огорожі прямокутної території складу. Паркан
складається із секцій однометрової довжини.
Визнач, яку найбільшу площу можна
огородити за до цієї сітки, якщо склад
з однієї сторони обмежується стіною, що не
потребує огородження. Вкажи ширину та
довжину ділянки з найбільшою Площею
(значення довжини та сторони мають бути
цілими числами),
Якими будуть відповіді, якщо довжина
сітки 80 м2 60 м?

Порядок действий:
1 Отрицание-инверсия(не, обозначается - )
2Действия в скобках
3 Конъюнкция-умножение(и, обозначается&)
4 Дизъюнкция-сложение(или, обозначается галочкой)
истина-1,ложь-0 
например:
1галочка0&1 следуя по всем законам математики, сначала выполняется умножение т.е & значит 0*1=0, а затем выполняем сложение(галочка) 1+0=1 следовательно ответ истина
1) 1&0=0-ложь
2)1 галочка0=1-истина
3) не 1 галочка 0 - 0+0=0-ложь
4)1 & 0 галочка 1=1*0+1= 1-истина
5)1 галочка 0&1=1+0*1=1-истина
 6)не1 галочка 0 &1=0+0*1=0-ложь
7)(1галочка0) &(1галочка0)=(1+0)*(1+0)=1*1=1-истина
8)не(1галочка0) & (1галочка0)=не(1+0)*(1+0)=не1* 1=0*1=0-ложь
9)не(1&0&1)=не(1*0*1)=не(0*1)=не0=1-истина

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

function DecTo13(n:integer):string;
begin
  var S:='0123456789ABC';
  Result:='';
  if n=0 then Result:='0'
  else
    while n>0 do begin
      Result:=S[n mod 13+1]+Result;
      n:=n div 13
      end
end;

begin
  Write('    '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln;
  Writeln(14*4*'-');
  for var i:=1 to 13 do begin
    Write(DecTo13(i)+':':4);
    for var j:=1 to 13 do Write(DecTo13(i*j):4);
    Writeln
    end
end.

Результаты - во вложениях.