uses  crt;
var a,b,c,d,z,ch,zn:integer;
 procedure evklid(m, n: integer; var nod:integer);
   
begin
  
   repeat
    if m > n then m := m Mod n
    else n := n Mod m;
  until (m = 0) Or (n = 0);
  {если или m или n в процессе хода цикла стал равен 0 ,то цикл заканчивается }
  nod:=m+n;
end;
begin
 clrscr;
 writeln('Введите дробь a/b');
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  writeln('Введите дробь c/d');
  write('c=');
  readln(c);
  write('d=');
  readln(d);
  ch:=a*d;
  zn:=b*c;
  evklid(ch,zn,z);
  ch:=ch div z;
  zn:=zn div z;
  Writeln('В результате деления дробей получим:  ',ch,'/',zn);
end.