Ответ:

Объяснение:

program prog;

var i,k:integer;

   S:double;

begin

i:=1; k:=3; S:=0;

while (i<=49) and (k<=51) do begin

S:=S+i/k;

i:=i+2;

k:=k+2;

end;

writeln ('Сумма', S);

end.