Небоьшая программка с For

[bwitcher]

Вычислить сумму: 1+1/2+1/3+...+1/n.

Program MyProg;
Var
s:real;n,i:integer;
Begin
Writeln('Vvedite n');
Readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
Writeln('Znachenie vyrajeniya=',s);
Readln;
End.

Проверьте, пжл. Правильно сделал?

[_Engine_]

правильно, сдавай

[bwitcher]

Спасибочки