Verified answer

var
    i, j, m: integer;
    S, P: real;

begin
    i := 1;
    while((i <= (i + 3) * (i + 3)) and (i <= 100)) do
    begin
        P := 1;
        for j := -5 to 15 do
        begin
            P := P * sin(i / sqrt(i * i + j * j));
        end;
        S := S + P;
        writeln(i:5, ' - ', S:10:3);
        i := i + 1;
    end;
end.

вообще получается бесконечный цикл, потому пришлось ввести второе условие