Важно. Составить программу деления дроби на дробь

program drobi;
 
var a, b, c, d, i, j, k, min: integer;
 
begin
  write('a = '); readln(a);
  repeat
    write('b = '); readln(b);
    if b = 0 then writeln('Error: b = 0.')
  until b <> 0;
  repeat
    write('c = '); readln(c);
    if c = 0 then writeln('Error: c = 0.')
  until c <> 0;
  write('d = '); readln(d);
  i := a * d;
  j := b * c;
  write('(a / b) / (c / d) = ', i, ' / ', j);
  if i = 0
    then j := 1
    else
      begin
        if abs(i) > abs(j) then min := abs(j) else min := abs(i);
        for k := 2 to round(sqrt(min)) do
          while (i mod k = 0) and (j mod k = 0) do
            begin
              i := i div k;
              j:= j div k
            end
      end;
  if i <> a * d
    then
      begin
        if ((i < 0) and (j > 0)) or ((i > 0) and (j < 0)) then write(' - ');
        write(abs(i));
        if abs(j) <> 1 then write(' / ', abs(j))
      end;
  readln
end.

var
a, b, c, d, m,n,t: integer;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
m:= a * d;
n:= b * c;
if m<n then begin
t:=m;
m:=n;
n:=t;
end;
while n>0 do
begin
m:=m mod n;
t:=m;
m:=n;
n:=t;
end;
writeln(a*d div m,'/',b*c div m);
end.