program speedrun implicit none real(8)::A,B,C read*,A,B,C print"(f0.30)",A*C/B end program speedrun