Напишите на ая алгоритм сложения двух простых дробей (без сокращения дроби) на pascal abc

Var
    a, b, c, d: integer;

begin
    readln(a, b);
    readln(c, d);
    writeln(a * d + c * b, '/', b * d);
end.