Viết chương trình tính tổng 1/a +1/(a+1)+…+1/(a+200)

uses crt;

var a,i:longint;

tong:real;

begin

clrscr;

write(‘Nhap a=’);readln(a);

tong:=0;

for i:=1 to 200 do tong:=tong+(1/a+i);

writeln(tong:0:5);

readln;

end.