Написать алгоритм на языке программирования Паскаль и использованием переменного while

Первый пример:
[tex]S= \sqrt{5} + \sqrt{15} + \sqrt{20} + ... + ... [/tex], пока S <=100
Второй пример:
P= -10*(-9)*(-8)*...*(-1)

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

1)var    s := 0.0;    i := 0;begin    repeat        i := i + 5;        s := s + sqrt(i);    until s > 100;        WriteLn(s);end.2)var    p := 1;    i := -10;begin    repeat        p := p * i;        i := i + 1    until i >= 0;        WriteLn(p);end.