Найти сумму 15 членов ряда, в котором a^=10/n — Pascal(Паскаль)

var n,i:byte;
     s:real;
begin
s:=0;
for i:=1 to 15 do
s:=s+10/i;
writeln(s);
end.