program addFractions;
varnum1, den1, num2, den2, numRes, denRes: Integer;
beginwriteln('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.
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.