43. Количество участников олимпиады

 Как известно, на вопрос о том, сколько у него учеников, древнегреческий учёный Пифагор отвечал так: "Половина моих учеников изучает математику, четвертая часть изучает природу, седьмая часть проводит время в молчаливом размышлении, остальную часть составляют 3 девы".

   Секретарь олимпиады на вопрос: "Сколько зарегистрировано участников олимпиады по информатике?", отвечал подобно Пифагору: "K-тая часть участников начала решать первую задачу, M-тая часть – вторую, а N-тая – третью. В то же время D участников решают проблему: "С чего начать?". Ваша задача определить количество участников олимпиады S или вывести -1, если секретарь ошибся.

Код решения:

*****

var k, n, m, d:int64;
   s:real;
begin
    readln (k, n, m, d);
    s:=(d*k*n*m)/(k*n*m-k*m-k*n-m*n);
    if trunc(s)=s then writeln (trunc(s))
                  else writeln (-1);
end.

*****