Найти сумму ряда S=1+1/2+1/3+……+1/10 — Pascal(Паскаль)

uses crt;
 var
 i,n:integer;
 sum:real;
 begin clrscr;
 sum:=1;
 write('n=');
 read(n);
 for i:=1 to n do
 sum:=sum+1/(i*10);
 writeln('sum=',sum:3:4);
 readkey;
 end.