<em>program SquareRootSum;</em> <em> var S: real;</em> <em> i: integer;</em> <em>begin</em> <em> i := 5;</em> <em> S := 0;</em> <em> while S <= 100 do</em> <em> begin</em> <em> S := S + sqrt(i);</em> <em> i := i + 5;</em> <em> end;</em> <em> WriteLn(S)</em> <span><em>end.</em>
-------------------------------- <em>program Product;</em> <em> var P: real;</em> <em> i: integer;</em> <em>begin</em> <em> P := 1;</em> <em> i := -10;</em> <em> while i <= -1 do</em> <em> begin</em> <em> P := P*i;</em> <em> i := i+1</em> <em> end;</em> <em> WriteLn(P)</em> <span><em>end.
</em>Сумме присваиваем начальное значение 0, потому что мы потом будем прибавлять к ней числа. А произведение присваиваем начальное значение 1 (если был бы 0, то все произведение было бы равно нулю, а нам это не нужно).<em> </em></span></span>