Даны две дроби a/b и c/d (a,b,c,d-натуральные числа). составить программу для умножения дроби на дробь. результат должен быть несократимой дробью. желательно через процедуру.

Program test; vara,b,c,d: real; beginreadln(a,b,c,d); if (a> 0) and (b> 0) and (c> 0) and (d> 0) thenwriteln((a/b)*(c/d)); end.вводим a,b,c,d   с клавиатуры. процедуру можешь сам включить сюда, там не сложно.