Решить на языке паскаль. дано целое число n(> 0) найти сумму 1-1/2-1//n(вещественное число)

Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.