Написать прог-у которая вычисляет сумму первых n членов ряда 1+1/2+1/3...

Вот

var i,n:integer;
    s:real;
begin
 writeln('Vvedite n');
 readln(n);
s:=0; 
for i:=1 to n do s:=s+(1/i);
writeln(s:10:10);
readln;
end.

Надоело закрывать глаза на безответственность отвечающих.

Это неполное решение... Инициализации переменных нет. Приравнивается к ошибке.