program addFractions;

var
num1, den1, num2, den2, numRes, denRes: Integer;

begin
writeln('Enter the first fraction (numerator and denominator): ');
readln(num1, den1);

writeln('Enter the second fraction (numerator and denominator): ');
readln(num2, den2);

numRes := num1 den2 + num2 den1;
denRes := den1 * den2;

writeln('The result of adding the fractions is: ', numRes, '/', denRes);

end.