hộ với viết chương trình tính h = 1+1\3+1\5+-+1\n để h lớn nhất = 2,5

program oken;

uses crt;

var h:real;

      i,n:longint;

begin

clrscr;

write(‘nhap n’);

h:=1; i:=0;

while h<=(5/2) do

   begin

       i:=i+1;

       h:=h+(i/(i+2));

   end;

writeln(‘h=’,h);

readln;

end.