#!/usr/bin/env perl

use strict;
use warnings;

my ($vl, $vr) = split / /, <>;
my $d = <>;
my $w = <>;

my $t = $d / ($vl + $vr);
print $w * $t;