Необходимо составить неравенство для каждой границы области.Как на примере(1 картинка)(2 картинка - задание)

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3

РОПОР и ТОПОР

Объяснение:

Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:

1. (00000) = 0 в 10ичной СС

2. П (00001) = 1 в 10ичной СС

3. Р (00002) = 2 в 10ичной СС

4. Т (00003) = 3 в 10ичной СС

5. ОООПО (00010) = 4 в 10ичной СС

...

Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

Замена: РОПОР

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

Замена: ТОПОР