интересная задача

[Irisha_17_85]

Петя очень хочет научиться жонглировать и показывать фокусы. Недавно его друг показал ему один фокус - попросил Петю загадать ему некоторую положительную дробь а/b, затем назвать ее знаменатель и две дроби (p1/q1) и (p2/q2), такие, что (p1/q1)< (a/b) < (p2/q2), причем между ними нет меньшей дроби с тем же знаменателем, что и у дроби, загаданной Петей. После этого Петин друг отгадал числитель загаданной дроби. Теперь Петя хочет научиться сам показывать этот фокус. Напишите программу, находящую числитель загаданной дроби

Имя входного файла frac.in Имя выходного файла frac.out
Формат входного файла
Во входном файле через переводы строк заданы три дроби в формате <числитель>/<знаменатель>
(p1/q1, a/b, p2/q2), где вместо числа а указан вопросительный знак "?". Все числители и знаменатели являются положительными целыми числами и не превышают 1000.
Формат выходного файла
В выходной файл нужно вывести минимальное число а, такое, что (p1/q1)< (a/b) < (p2/q2). Если такого не существует, выведите "-1" (без кавычек)


Пример:
frac.in
1/2
?/8
3/4
frac.out
5


Пример2:
frac.in
3/20
?/2
4/10
frac.out
-1

[ОДИНОЧЕСТВО В СЕТИ]

-ищем q3= нок (q1 и q2)
-q3= нок(q3 и b);
-a:=p1*q3/b+1;
-если a>p2 выводим -1
---иначе выводим a,'/',b
ничего уж сильно интересного

[Irisha_17_85]

Спасибо за ответ!
Я в Паскале особо не шарю, можно с кодом программы, очень нужно!