Для начала решим это математически:
Пусть 
и 
- данные дроби.
Их сумма будет:
И нужно найти целую часть от деления (a*d+b*c) на (b*d).
Теперь составляем программу:
var a,b,c,d: integer;
begin
readln(a,b,c,d);
write(abs(a*d+b*c) div abs(b*d));
end.
