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;
end;

function drob() : integer;
var
   proizv, chisl, znam: integer;
begin
   proizv := chisl * znam;
   drob := proizv;
end;

function CheckTwo() : integer;
var
   chisl, znam, l: integer;
begin
  if (chisl < znam) then
     for l := chisl downto 2 do
        if (chisl mod l = 0) and (znam mod l = 0) then
           chisl := chisl div l;
           znam := znam div l;
end;
const
   MaxInt = 46340;
var
   m, n, p, q, a, b, chisl1, znam1 : integer;
begin
    Writeln ('This program divides two irreducible fractions');
    m := CheckOne(MaxInt);
    n := CheckOne(MaxInt);
    p := CheckOne(MaxInt);
    q := CheckOne(MaxInt);
    a := CheckTwo;
    b := CheckTwo;
    chisl1 := drob;
    znam1 := drob;
    writeln (chisl1 ,'/', znam1);
readln;
end.