Răspuns:
program suma_produs;
var
a, n : integer;
suma, produs: real;
begin
writeln ('n = ');
read (n);
suma := 0;
produs := 1;
for a := 1 to n do
begin
suma := suma + 1/a;
produs := produs * 1/a;
end;
writeln('Suma este ', suma);
writeln('Produsul este ', produs);
end.
Explicație:
