Var
m, n: integer;
k, d, s: real;
begin
read(m, n, k, d);
repeat
d := d - m * k + n * k / 2;
s := s + m * k;
until d <= 0;
writeln(s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.