лабы / лаб3 / lab3_2

program lab3_2;
var
    x: Real = 0.0;
    z: Real;
    i: Integer;
begin
    while (x <= 20.0) do
    begin
        z := 0;
        for i:=1 to 20 do
        begin
            z := z + x / Sqrt(1+x);
            x := x + 0.1;
        end;
        WriteLn('При x = ', x:1:2, ', z = ', z:1:2);
    end;
end.