Program Project6;

{$APPTYPE CONSOLE}

uses
   sysUtils;
function CheckOne(m, n, q, p : integer) : integer;
const
   MaxItn = 46340;
var
   IsCorrect: Boolean;
begin
   repeat
      try
         writeln('Enter a first numerator : ');
         readln(m);
         if ((m > 0) and (m < MaxInt)) then
            IsCorrect := True
         else
             writeln('Enter a value more then zero!');
      except
         IsCorrect := False;
         writeln ('Enter a number!');
      end;
   until IsCorrect;

   repeat
      try
         writeln('Enter a first denominator: ');
         readln(n);
         if ((n > 0) and (n < MaxInt)) then
            IsCorrect := True
         else
             writeln('Enter a value more then zero!');
      except
         IsCorrect := False;
         writeln ('Enter a number!');
      end;
   until IsCorrect;

   repeat
      try
         writeln('Enter a second numerator : ');
         readln(p);
         if ((p > 0) and (n < MaxInt)) then
            IsCorrect := True
         else
             writeln('Enter a value more then zero!');
      except
         IsCorrect := False;
         writeln ('Enter a number!');
      end;
   until IsCorrect;

   repeat
      try
         writeln('Enter a second denominator : ');
         readln(q);
         if ((q > 0) and (n < MaxInt)) then
            IsCorrect := True
         else
             writeln('Enter a value more then zero!');
      except
         IsCorrect := False;
         writeln ('Enter a number!');
      end;
   until IsCorrect;
end;

function Chisl(a : integer; m, q: integer) : integer;
begin
   a := m * q;
   Chisl := a;
end;

function Znam(b : integer; n, p: integer) : integer;
begin
   b := n * p;
   Znam := b;
end;

procedure CheckTwo();
var
   a, b, l: integer;
begin
  if (a < b) then
     for l := a downto 2 do
        if (a mod l = 0) and (b mod l = 0) then
           a := a div 1;
           b := b div l;
end;
procedure main();
var
   a, b: integer;
begin
   Writeln ('This program divides two irreducible fractions');
   Writeln (a, '/' ,b);
end;
begin
   main();
   readln;
end.