Program Project6;

{$APPTYPE CONSOLE}

uses
   sysUtils;
function CheckOne(max : integer) : integer;
var
   IsCorrect: Boolean;
   input: integer;
begin
   repeat
      try
         writeln('Enter a value : ');
         readln(input);
         if ((input > 0) and (input < max)) then
            IsCorrect := True
         else
             writeln('Enter a correct value!');
      except
         IsCorrect := False;
         writeln ('Try again. Enter a correct value!');
      end;
   until IsCorrect;
   CheckOne := input;
end;

function fraction(num, den: integer) : integer;
var
   mult: integer;
begin
   mult := num * den;
   fraction := mult;
end;

procedure CheckTwo(var num, den : integer);
var
   l: integer;
begin
  if (num < den) then
     for l := num downto 2 do
     else
        if (num mod l = 0) and (den mod l = 0) then
           num := num div l;
           den := den div l;
end;
const
   MaxInt = 46340;
var
   m, n, p, q, a, b, num1, den1 : integer;
begin
    Writeln ('This program divides two irreducible fractions');
    m := CheckOne(MaxInt);
    n := CheckOne(MaxInt);
    p := CheckOne(MaxInt);
    q := CheckOne(MaxInt);
    CheckTwo(m, q);
    CheckTwo(p, n);
    num1 := fraction(m, q);
    den1 := fraction(p, n);
    writeln (num1 ,'/', den1);
readln;
end.