https://pastein.ru/t/1X

  скопируйте уникальную ссылку для отправки


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.