Задача по информатике
Напишите программу которая используя оператор for вычисляет для первых n элементов сумму и произведение

Вопрос задан несколько некорректно: на каком языке программирования? Вот, например, на Паскале:
1) Program P1;
uses crt;
var i, n: integer;
s: real;
begin
clrscr;
write ('Введите количество элементов ряда: ');
readln (n);
s:=0;
for i:=1 to n do s:=s+1/i;
write ('Ответ: Сумма элементов ряда равна: ', s);
readkey;
end.
2) Program P2;
uses crt;
var i, n: integer;
p: real;
begin
clrscr;
write ('Введите количество элементов ряда: ');
readln (n);
p:=1;
for i:=1 to n do p:=p*1/i;
write ('Ответ: Произведение элементов ряда равно: ', p);
readkey;
end.

1. var i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s);
end.
2.
var i,n:integer;
p:real;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*1/i;
writeln(p:6:2);
end.