Нужно написать программу в pascal. решение на бумаге есть.​даны значения smin, smax, l, w, alpha, beta. нужно найти a, b, tmax

Begin

 var fi_min:=ReadlnReal('fi_min=');

 var fi_:=ReadlnReal('fi_=');

 var fi_max:=ReadlnReal('fi_max=');

 var S_min:=ReadlnReal('S_min=');

 var S_max:=ReadlnReal('S_max=');

 var L:=ReadlnReal('L=');

 var W:=ReadlnReal('W=');

 var alpha:=ReadlnReal('alpha=');

 var betta:=ReadlnReal('betta=');

 var a, b:real;

 var x,y:real;

 var T_max:real;

 var S:real;

 y:=(S_max**2-S_min**2)/(cos(alpha+betta+fi_min)-cos(alpha+betta+fi_max));

 x:=S_min**2+y*cos(alpha+betta+fi_min);

 a:=((x+y)**(1/2)+(x-y)**(1/2))/2;

 b:=((x+y)**(1/2)-(x-y)**(1/2))/2;

 S:=(a**2+b**2-2*a*b*cos(alpha+betta+fi_))**(1/2);

 T_max:=(W*L*S)/(a*b*sin(alpha+betta));

 Println(a, b);

 Println(T_max);

end.

У вас есть число 137
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1) 
68   / 2 = 34 выписываем остаток (0)
34   / 2 = 17 выписываем остаток (0)
17   / 2 = 8   выписываем остаток (1)
8     / 2 = 4   выписываем остаток (0)
4     / 2 = 2   выписываем остаток (0)
2     / 2 = 1  <==   на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001

Обозначим P,Q,A утверждение что х принадлежит соответствующему отрезку
¬А отрицание А, то есть х не принадлежит А
перепишем и упростим исходную формулу
P→((Q∧¬A)→P)
известно что X→Y=¬X∨Y (доказывается просто, например через таблицу истинности)
тогда:
P→(¬(Q∧¬A)∨P)
раскроем скобку ¬(Q∧¬A) с закона де Моргана (стыдно их не знать, если что это такие же основы как и таблицы истинности)
P→(¬Q∨¬¬A∨P) = P→(¬Q∨A∨P) = ¬P∨¬Q∨A∨P
¬P∨P=1 то есть всегда истинно и 1∨Х=Х значит ¬P и P можно убрать
остается ¬Q∨A
Значит х либо принадлежит А либо не принадлежит Q
для выполнения этого условия необходимо чтобы все значения Q принадлежали А, тогда минимальное А совпадает с Q
ответ А=[40,77]