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;