Вычислить значение суммы n членов следующего ряда: 13+k/2+к/3+к/> 0,k> 0 вводятся с клавиатуры

Вроде как вот так:
Program aasfa;
var n,i: integer; 
k,z: real;
begin
Writeln('Введите N:');
readln(N);
Writeln('Введите K:');
readln(K);
z:=13;
For i:=2 to N do
z:=K/i+z;
Writeln(z);
end.