program breuken; uses wincrt;
type
	breuk = record
               teller, noemer: integer
	        end;
var
	b1, b2, b3: breuk;
begin
	write('Geef de teller van de eerste breuk: ');
	read(b1.teller);
	write('Geef de noemer van de eerste breuk: ');
	read(b1.noemer);
	write('Geef de teller van de tweede breuk: ');
	read(b2.teller);
	write('Geef de noemer van de tweede breuk: ');
	read(b2.noemer);
	b3.noemer:=b1.noemer*b2.noemer;
	b3.teller:=b1.noemer*b2.teller+b2.noemer*b1.teller;
	write('De som van deze breuken is ');
	write(b3.teller, '/', b3.noemer)
end.
