СФОРМУЛИРОВАТЬ ЗАДАЧУ
Var a, b, c, d, m, n: integer;
Begin
Write ('введите натуральные числа a, b, c, d: ');
Readln (a, b, c, d);
m:=a*c; n:=b*d;
while m<>n do
if m>n then m:=m-n else n:=n-m;
writeln('Результат: ', a*c div m, '/', b*d div m)
End.

Программа вычисляет значение дробиопределяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.