У меня получилось вот что:
дело в том, что по условию задачи НЕПОНЯТНО, что за зверь этот Z.
Я в программе просто задал его датчиком случайных чисел.
Если Z просто вводится с клавиатуры, то для тебя не составит большого труда вместо моей строки
z:=(100+round(666))/100;
вставить свою, например:
z:=2015.3 ;
uses Crt;
const n=10;
var i: integer;
S, z: real;
begin
ClrScr;
Randomize;
S:=0;
z:=(100+round(666))/100;
WriteLn(' z =' , z:8:3);
for i:=1 to n do
begin
S:=S+z*z/i;
WriteLn(' S [', i,']= ', S:8:3);
end;
WriteLn(' S = ', S:8:3);
ReadLn;
end.