viết đoạn lệnh kiểm tra xâu “giữa kỳ” có trong xâu không? nếu có xuất ra màn hình vị trí của nó ( giúp emm :(( )

var n,i:integer; s:real; begin readln(n); if n mod 2 <> 0 then write(‘giua ki.’) else begin i:=2; s:=0; while i<=n do begin s:=s+1/i; i:=i+2; end; write(s:2:5); end; end.