ПідприЄмство набирає робітників у Штат. Умова прийому потребує не
менше 5 років робочого стажу та вік не більше 40 років. Створіть про-
граму, яка перевіряє, підходить кандидатура по цим параметрам чи ні.​

Таблица истинности - в прилагаемом файле.

Const m=500000; p1=25000; p2=16000; p3=2000; n=100;
var k1,k2,k3:integer;
begin
 for k1:=0 to m div p1 do
  for k2:=0 to (m-k1*p1) div p2 do
    begin
    k3:=n-k1-k2;
    if k1*p1+k2*p2+k3*p3=m then writeln(k1,,k2,,k3);
    end;
end.

Результат:
10 5 85

10 -> 2

2018 / 2 = 1009. Остаток 0.
1009 / 2 = 504. Остаток 1.
504 / 2 = 252. Остаток 0.
252 / 2 = 126. Остаток 0.
126 / 2 = 63. Остаток 0.
63 / 2 = 31. Остаток 1.
31 / 2 = 15. Остаток 1.
15 / 2 = 7. Остаток 1.
7 / 2 = 3. Остаток 1.
3 / 2 = 1. Остаток 1.

Берём ответ последнего деления и идём по остаткам от конца до начала.
11111100010

2 -> 16

От конца берём по 4 цифры и считаем их значение по заранее составленной таблице.
[111][1110][0010] = [7][14][2] = 7E2

16 ->10

Нумеруем цифры от конца до начала индексами в порядке возрастания, начиная от 0, впоследствии каждую цифру нужно умножить на порядок той системы счисления, из которой производится перевод (16), возведённой в степень, равную индексу, и всё сложить.
7E2 = [7][14][2] = 7 * 16^2 + 14 * 16^1 + 2 * 16^0 = 1792 + 224 + 2 = 2018

Вторая задача...........