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;
procedure CheckTwo(var num, den : integer);
var
   l, min : integer;
begin
  if  den > num then min := den else min := num;
  for l := 1 to min do
    if (num mod l = 0) and (den mod l = 0) then
    begin
      num := num div l;
      den := den div l;
    end;
end;

function fraction(num, den: integer) : integer;
var
   mult: integer;
begin
   mult := num * den;
   fraction := mult;
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, p);
    CheckTwo(q, n);
    num1 := fraction(m, n);
    den1 := fraction(p, q);
    writeln (num1 ,'/', den1);
readln;
end.