program addfraction;

var
arithm1, paron1, arithm2, paron2, paron3, arithm3:integer;

begin
//Ζητάμε τους όρους του πρώτου κλάσματος
writeln('Γράψε τον αριθμιτή και τον παρονομαστή του πρώτου κλάσματος χωρισμένους με κενό');
read(arithm1, paron1);

//Ζητάμε τους όρους του δεύτερου κλάσματος
writeln('Γράψε τον αριθμιτή και τον παρονομαστή του δεύτερου κλάσματος χωρισμένους με κενό');
read(arithm2, paron2);

//---------------------------------------//

paron3:=paron1 * paron2; //Πολλαπλασιάζουμε τους παρονομαστέ και βάζουμε το αποτέλεσμα σε μια μεταβλητή

//Με τη διέρεση μέσα στην παρένθεση βλέπουμε με τι να πολλαπλασιάσουμε τους
//αριθμιτές (οτι κάνουμε και στα καπελάκια). Το πολλαπλασιάζουμε και βάζουμε το
//αποτέλεσμα στις μεταβλητές.
arithm1:=arithm1 * (paron3 div paron1);
arithm2:=arithm2 * (paron3 div paron2);

//Τέλος προσθέχτουμε τους αριθμιτές και βάζουμε το αποτέλεσμα σε μια άλλη μεταβλητή...
arithm3:=arithm1 + arithm2;

//...και παρουσιάζουμε το αποτέλεσμα
writeln('Αποτέλεσμα: ', arithm3, ' / ', paron3);
end.