var x, y, p, s:real;
var j, i, n, k:integer;
begin
writeln('VVEDITE x, y, n, k');
readln(x, y, n, k);
s:=0;
i:=1;
repeat
j:=1;
p:=1;
while (j<=k) do
begin
p:=p*((i+x)/(i+y));
writeln('j=', j, ' p= ', p);
j:=j+1;
end;
s:=s+p;
writeln('i=', i, ' s= ', s);
i:=i+1;
until (n>i);
writeln('s=', s:5:4);
end.