`\text{}`

`\text{Program bt1;}`

`**\text{Var n, j,: byte ;}`

`**\text{      B : Real ;}`

`->\text{{Chuyển B từ byte sang real}}`

`\text{Begin}`

`\text{B :=0 ; j := 1 ;}->\text{{Thêm dấu chấm phẩy}}`

`\text{While j<=n do }->\text{{Bỏ dấu chấm phẩy}}`

`\text{Begin}`

`\text{  B := b + 1/ j ;}`

`\text{   j := j +2 ;}`

`\text{ End ;}`

`\text{Writeln('Ket qua la: ',B)}`

`\text{Readln ;}`

`\text{End .}`

program bt1;

var i,j: byte;

       B: real;

begin

write ('nhap n: ');  readln (n);

B:=0; j:=1;

while i<=n do 

begin

B:=B+1/j;

j:=j+2;

end;

write ('ket qua la: ',B);

readln;

end.