Дана числовая последовательность (1/8, 1/12, 1/16 и т.д.), найти сумму членов с 10 по 25-й включительно — Pascal(Паскаль)

uses crt;
var i,j,s:integer;
z:real;
begin
clrscr;
s:=8;
for i:=1 to 10 do
 s:=s+4;
for j:=1 to 15 do
 z:=z+1/s;
writeln('Otvet: ',z);
readln
end.